Foto's weergeven in FlowLayoutPanel

[geertd]

Hallo allemaal,

Ik ben een form aan het maken waarin de foto's uit een bepaalde map worden weergegeven.
Ze moeten worden weergegeven in een FlowLayoutPanel wanneer je het form opent.

Ik ben alleen nog maar een n00b op programmeergebied. Dus ik heb van MSDN deze code gehaald. Als je in het programma hieronder op de button klikt kun je de foto's selecteren die moeten worden weergegeven in het FlowLayoutPanel. Bij mij moeten echter alle foto's van een vooraf bepaalde map worden weergegeven. De OpenFileDialog is dus helemaal niet nodig. Wat moet ik aanpassen?

Public Class ImageInBox

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        InitializeOpenFileDialog()
    End Sub

    Private Sub SelectFileButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectFileButton.Click
        Dim dr As DialogResult = Me.OpenFileDialog1.ShowDialog()
        If (dr = System.Windows.Forms.DialogResult.OK) Then
            ' Read the files
            Dim file As String
            For Each file In OpenFileDialog1.FileNames
                ' Create a PictureBox for each file, and add that file to the FlowLayoutPanel.
                Try
                    Dim pb As New PictureBox()
                    Dim loadedImage As Image = Image.FromFile(file)
                    pb.Height = loadedImage.Height
                    pb.Width = loadedImage.Width
                    pb.Image = loadedImage
                    FlowLayoutPanel1.Controls.Add(pb)

                Catch ex As Exception
                    ' Could not load the image - probably permissions-related.
                    MessageBox.Show(("Cannot display the image: " & file.Substring(file.LastIndexOf("\"c)) & _
                    ". You may not have permission to read the file, or " + "it may be corrupt." _
                    & ControlChars.Lf & ControlChars.Lf & "Reported error: " & ex.Message))
                End Try
            Next file
        End If
    End Sub

    Public Sub InitializeOpenFileDialog()
        ' Set the file dialog to filter for graphics files.
        Me.OpenFileDialog1.Filter = _
                "Images (*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|" + _
                "All files (*.*)|*.*"

        ' Allow the user to select multiple images.
        Me.OpenFileDialog1.Multiselect = True
        Me.OpenFileDialog1.Title = "My Image Browser"
    End Sub

End Class

Alvast hartelijk bedankt,

Geert