Public Class Form1
    Private mlstLabels As List(Of Label) = Nothing
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        mlstLabels = New List(Of Label)
 
        For intIndex As Integer = 0 To Panel1.Controls.Count - 1
            If (TypeOf Panel1.Controls(intIndex) Is Label) Then
                mlstLabels.Add(CType(Panel1.Controls(intIndex), Label))
            End If
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        For intIndex As Integer = 0 To mlstLabels.Count - 1
            mlstLabels(intIndex).Text = "Hallo"
        Next
    End Sub
End Class

--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein