' Generische Liste
        ControlList = New List(Of Label)
        Dim ElementCount As Integer = 0
 
        'Label-Koordinaten
        Dim Label_X_1 As Integer = 3
        Dim Label_X_2 As Integer = 435
        Dim Label_Y As Integer = 95
        Dim Label_Y_Faktor As Integer = 152
 
        ' FlowPanel leeren
        Me.FlowLayoutPanel1.Controls.Clear()
        ' Ausrichtung
        Me.FlowLayoutPanel1.FlowDirection = FlowDirection.TopDown
        ' Umbrechen
        Me.FlowLayoutPanel1.WrapContents = False
 
        For x As Integer = 0 To 20
            ElementCount += 1
 
            ' Label erzeugen
            Dim lb As New Label
 
            ' Schleifenzähler als Index in die Tag-Eigenschaft des Labels retten
            lb.Tag = x
 
            ' Das Label dem FlowPanel zuweisen
            Me.FlowLayoutPanel1.Controls.Add(lb)
 
            ' Das Label der generischen Liste übergeben
            ControlList.Add(lb)
 
            If ElementCount Mod 2 = 0 Then
                lb.Location = New System.Drawing.Point(Label_X_2, Label_Y)
 
                'nächste Zeile
                Label_Y = Label_Y + Label_Y_Faktor
            Else
                lb.Location = New System.Drawing.Point(Label_X_1, Label_Y)
            End If
 
            ' Label Caption setzen
            lb.Text = "Label " & x.ToString
            lb.BorderStyle = BorderStyle.FixedSingle
            lb.TextAlign = ContentAlignment.MiddleCenter
        Next