Dim Ctl As Object
        Dim Tab As Object
 
        'durchsucht den TabControl1 nach allen TabPages mit den Namen 
        ' TabReiter...
 
        For Each Tab In Me.TabControl1.Controls
            If TypeOf Tab Is TabPage AndAlso DirectCast(Tab, TabPage).Name Like _
              "TabReiter*" Then
                Dim T As Object = DirectCast(Tab, TabPage)
                For Each Ctl In T.Controls
                    If TypeOf Ctl Is Label AndAlso DirectCast(Ctl, Label).Name _
                      Like "lblM*_*" Then
                        Dim Lbl As Label = DirectCast(Ctl, Label)
                        'Dim Nummer As Integer = CInt(Lbl.Name.Replace("lblM", 
                        ' ""))
                        Lbl.Text = "AAA"
                        If Lbl.Text > "" Then
 
                        End If
                    End If
                Next
            End If
        Next

Hänk

(Wer früh aufsteht hat mehr vom Tag)