Public Class Form1
 
    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal _
      e As System.EventArgs) Handles TabControl1.Selected
        MsgBox(TabControl1.SelectedTab.Name, MsgBoxStyle.OkOnly, "Ich heiße:")
    End Sub
 
    Private Sub TabControl2_Selected(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.TabControlEventArgs) Handles TabControl2.Selected
        MsgBox(TabControl1.SelectedTab.Name, MsgBoxStyle.OkOnly, "Mein" & _
        "Elternfenster:")
        MsgBox(TabControl2.SelectedTab.Name, MsgBoxStyle.OkOnly, "Ich heiße:")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MsgBox(" der Tabs in TC1:  " & TabControl1.TabCount & vbCrLf & " der" & _
        "Tabs in TC2:  " & TabControl2.TabCount, MsgBoxStyle.OkOnly, "Anzahl")
    End Sub
End Class