Public Class frmFlowLayoutPanel
 
    Dim FlowLayoutPanel1 As New FlowLayoutPanel _
         With {.Parent = Me, .Dock = DockStyle.Fill}
 
    Private Sub frmFlowLayoutPanel_Load(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles MyBase.Load
 
        FlowLayoutPanel1.AutoScroll = True
 
        For Each file As String In IO.Directory.GetFiles("F:\daten")
            If IO.Path.GetExtension(file).ToUpper = ".JPG" Then
                Dim pb As New PictureBox
                pb.Image = New Bitmap(file)
                pb.SizeMode = PictureBoxSizeMode.AutoSize
                FlowLayoutPanel1.Controls.Add(pb)
            End If
        Next file
 
    End Sub
End Class