'Liste der Labels
Dim labels As New List(Of Label)
 
'Ereignishandler
Private Sub Label_Click(ByVal sender As Object, ByVal e As EventArgs)
   Dim clickedlabel As Label = CType(sender, Label)
   MsgBox(clickedlabel.Text)
End Sub
 
'Labels in Liste erstellen (Form_Load)
For i As Integer = 1 To 65
    Dim lb As New Label
    lb.Top = i * lb.height+3
    lb.Left = 10
    lb.Parent = me  
    lb.Text = "Label " & CStr(i)
    AddHandler lb.Click, AddressOf Label_Click
    labels.Add(lb)
Next i
 
'Durchclicken
For i As Integer = 0 To labels.Count - 1
   With labels(i)
       .BackColor = .ForeColor
       .ForeColor = Color.White
       Label_Click(labels(i), New EventArgs)
       Threading.Thread.Sleep(500)
       .BackColor = Color.White
   End With
Next i