For x As Integer = 0 To TabPage.Controls.Count-1
   If TypeOf(TabPage.Controls(x)) is Label Then
      If TabPage.Controls(x).Name = TabPage.Name Then
          Dim meinLabel As Label = TabPage.Controls(x)
          meinLabel.Text = "dein Text"
      End If
   End If
Next x