Public Class Form2
    Private _imageToDraw As String
    'Hier übergeben wir den Pfad zur Datei
    Public Property ImageToDraw() As String
        Get
            Return _imageToDraw
        End Get
        Set(ByVal value As String)
            _imageToDraw = value
            Me.Invalidate() ' Wenn geändert, dann neu zeichnen
        End Set
    End Property
    Private Sub Form2_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        If _imageToDraw IsNot Nothing Then ' Wenn ein Bild übergeben wurde Bild 
        ' zeichnen
            ZeigeBild(e.Graphics) ' Der Function das Graphicsobject mitgeben
        End If
    End Sub
    Public Sub ZeigeBild(ByVal g As Graphics)
        Dim newimage As Bitmap
        newimage = New Bitmap(Me.ImageToDraw)
        g.DrawImage(newimage, 10, 10, 400, 400)
    End Sub
End Class

Public Class Form1
    Dim Files() As IO.FileInfo
    Dim f2 As Form2
    Dim di As New IO.DirectoryInfo( _
      My.Computer.FileSystem.SpecialDirectories.MyPictures)
    Dim img As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Files = di.GetFiles("*.jpg") ' Alle Bilder aus dem Ordner Eigene Bilder 
        ' laden
        f2 = New Form2
        f2.Show()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Timer1.Start() ' Slideshow starten
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        f2.ImageToDraw = Files(img).FullName
        img += 1
        If img = di.GetFiles("*.jpg").Length Then
            img = 0
        End If
    End Sub
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus