Private Sub Load_Images()
 
        Me.FolderBrowserDialog1.ShowDialog()
        Dim path As String
        path = Me.FolderBrowserDialog1.SelectedPath
 
        ' Nun alle Dateien in diesem Ordner durchlaufen und
        ' die Bilddateien in einen fenster öffnen
 
        Dim x As Integer = 160 ' Breite des Thumb
        Dim y As Integer = 10
        Dim i As Integer = 0
        Dim s As Integer = 0
        Dim max_height As Integer = 0
 
 
        Try
 
            For Each _r As String In System.IO.Directory.GetFiles(path)
 
                ' es wird nun für jede Datei eine Imagebox gezeichnet
                ' es dürfen jedoch maximal 4 nebeneinander
 
                Dim xx As System.IO.FileInfo = New System.IO.FileInfo(_r)
 
 
                Try
 
                    ' hier nun das einfügen der Imagebox durchführen
 
                    Dim xxx As Image
                    xxx = Me.Invoke(New MyDelegate(AddressOf Add_Image), New _
                      Object() {x, y, i, s, _r})
 
                    If max_height < xxx.Height Then
                        max_height = xxx.Height
                    End If
 
                    x = x + 210
                    i = i + 1
 
                Catch ex As Exception
 
                End Try
 
                ' Hier wird festgelegt wieviel Images nebeneinander gesetzt 
                ' werden
                If i = 4 Then
                    y = y + max_height + 10
                    x = 160
                    i = 0
                    max_height = 0
                End If
 
                s = s + 1
 
                Refresh()
 
            Next
 
        Catch ex As Exception
 
            MsgBox(Err.Description)
 
        End Try
 
 
    End Sub

Private Function Add_Image(ByVal x As Integer, ByVal y As Integer, ByVal i As _
  Integer, ByVal s As Integer, ByVal _r As String) As Image
 
        Dim aa As PictureBox
 
        ' Thumbnail erzeugen
 
        aa = New PictureBox
        aa.Name = _r
        aa.Left = x
        aa.Top = y
        aa.BorderStyle = BorderStyle.Fixed3D
        aa.SizeMode = PictureBoxSizeMode.StretchImage
        aa.BackColor = SystemColors.ActiveBorder
 
        ' Thumbmail erzeugen und Imagebox zuweisen
 
        Dim b As Image = Image.FromFile(_r)
        Dim Thumbnail As Image = Thumbnail_Proportional(b, 200, 0)
 
        aa.Image = Thumbnail
        aa.Width = Thumbnail.Width
        aa.Height = Thumbnail.Height
 
        elements.Add(aa)
        Me.Panel1.Controls.Add(aa)
 
        ' Einen OnClick Handler hinzuügen
        AddHandler aa.DoubleClick, AddressOf Me.Ausfuehren
 
        Return Thumbnail
 
    End Function
 
    Private Sub Ausfuehren(ByVal sender As Object, ByVal e As System.EventArgs)
 
        Dim aa As String = CType(sender, PictureBox).Name
 
        Dim xx As New Vorschau(aa)
        xx.ShowDialog()
 
    End Sub