Dim lbls As New List(Of Label)  'im Deklarationsteil des Formulars
 
        'Im Form_Load 
        For i As Integer = 0 To 99
            Dim lbl As New Label     'Label erstellen 
            lbl.Name = "Label " & CStr(i) 'einen Namen vergeben
            lbl.Parent = Me          'dem Formular zuordnen
            lbl.Top = i * lbl.Height 'oder wo auch immer positioniert
            lbls.Add(lbl)            'der Liste hinzufügen  
        Next i
 
        For i As Integer = 0 To 99
            lbls(i).Text = CStr(i)
        Next