Public Class Form1
 
    Private Sub Cmd_SourceOeffnen_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles Cmd_SourceOeffnen.Click
        Dim MainFolder As String
 
        MainFolder = ""
 
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            MainFolder = (FolderBrowserDialog1.SelectedPath) & "\"
        End If
 
        Call Filmliste(MainFolder, "*")
    End Sub
 
    Dim NewLbl As New Label 'Label = New Label()
    Private Sub Filmliste(ByVal MainFolder As String, ByVal Filter As String)
        Dim Name1 As String
        Dim LblCounter As Long
        Dim NewLbl As Label = New Label()
        LblCounter = 0
 
        Name1 = Dir(MainFolder, vbDirectory)    ' Ersten Eintrag abrufen.
        Do While Name1 <> ""    ' Schleife beginnen.
            ' Aktuelles und übergeordnetes Verzeichnis ignorieren.
            If Name1 <> "." And Name1 <> ".." Then
                ' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein
                ' Verzeichnis ist.
                If (GetAttr(MainFolder & Name1) And vbDirectory) = vbDirectory _
                  Then
                    If Name1 Like Filter & "*" Then
                        LblCounter = LblCounter + 1
                        With NewLbl
                            .Name = "Lbl_Bild_" & LblCounter
                            .Text = Name1
                            .Size = New Size(50, 16)
                            .Location = New Point(LblCounter * 60, 32)
                            .BorderStyle = BorderStyle.FixedSingle
                        End With
                        Pnl_Filme.Controls.Add(NewLbl)
                        Lst_Filmliste.Items.Add(Name1)    ' Eintrag nur 
                        ' anzeigen, wenn es sich
 
 
                    End If    ' um ein Verzeichnis handelt.
                End If
            End If
            Name1 = Dir()    ' Nächsten Eintrag abrufen.
        Loop
 
        Lst_Filmliste.Sorted = True
    End Sub
End Class

 
    Dim LBL As Control
    For Col = 1 To 10
        Me.Controls.Add "Forms.Label.1", "Lbl_" & Col
        Set LBL = Me.Controls("Lbl_" & Col)
 
        LBL.Caption = "Test"
        LBL.Height = 12
        LBL.Width = 50
        LBL.Left = 10
        LBL.Top = 10
        LBL.BackColor = RGB(R, G, B)
        LBL.BorderStyle = 1
        LBL.TextAlign = 2
    Next Col