' 导入命名空间
Imports System.Drawing
Imports System.Windows.Forms

Public Class Form1
    Inherits Form
    Private tabControl1 As TabControl
    Private tabPage1 As TabPage

    Private Sub MyTabs()
        Me.tabControl1 = New TabControl()
        Me.tabPage1 = New TabPage()

        Me.tabControl1.Controls.Add(tabPage1)
        Me.tabControl1.Location = New Point(25, 25)
        Me.tabControl1.Size = New Size(250, 250)
        Me.tabControl1.ShowToolTips = True

        Me.tabPage1.Text = "myTabPage1"

        ' Creates a string showing the Text value for tabPage1. 
        ' Then assigns the string to ToolTipText.  
        Me.tabPage1.ToolTipText = tabPage1.ToString()

        Me.ClientSize = New Size(300, 300)
        Me.Controls.Add(tabControl1)
    End Sub

    Public Sub New()
        MyTabs()
    End Sub

    Shared Sub Main()
        Application.Run(New Form1())
    End Sub
End Class