Public Class frmTabTippTest
 
    Dim tbc As New TabControl With {.Parent = Me, .Dock = DockStyle.Fill}
 
    Dim tb1 As New TabPage With {.Parent = tbc, .Text = "Page1"}
    Dim tb2 As New TabPage With {.Parent = tbc, .Text = "Page2"}
    Dim tb3 As New TabPage With {.Text = "Page3"}
 
    Dim WithEvents btn1 As New Button With {.Parent = tb1, .Text = "Btn1", _
      .Left = 10}
    Dim btn2 As New Button With {.Parent = tb2, .Text = "Btn2", .Left = 20}
    Dim WithEvents btn3 As New Button With {.Parent = tb3, .Text = "Btn3", _
      .Left = 30}
 
    Dim ttt As New ToolTip
 
    Private Sub frmTabTippTest_Load(sender As System.Object, e As _
      System.EventArgs) Handles MyBase.Load
 
        ttt.SetToolTip(btn1, "Tipp zu Button 1")
        ttt.SetToolTip(btn2, "Tipp zu Button 2")
        ttt.SetToolTip(btn3, "Tipp zu Button 3")
    End Sub
 
    Private Sub btn1_Click(sender As Object, e As System.EventArgs) Handles _
      btn1.Click
 
        If Not tbc.TabPages.Contains(tb3) Then
            tbc.TabPages.Add(tb3)
        Else
            tbc.TabPages.Remove(tb3)
        End If
    End Sub
 
    Private Sub btn3_Click(sender As Object, e As System.EventArgs) Handles _
      btn3.Click
        If Not tbc.TabPages.Contains(tb2) Then
            tbc.TabPages.Add(tb2)
        Else
            tbc.TabPages.Remove(tb2)
        End If
    End Sub
End Class