Public Class Form2
 
    Private WithEvents m_Tabcontrol1 As TabControl
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim m_TabPage As TabPage
 
        m_Tabcontrol1 = New TabControl
 
        For i As Integer = Asc("A") To Asc("Z")
            m_TabPage = New TabPage(Chr(i))
            m_TabPage.Name = "TabPage_" & Chr(i)
            m_Tabcontrol1.TabPages.Add(m_TabPage)
        Next
        With m_Tabcontrol1
            .Parent = Me
            .Dock = DockStyle.Fill
            .ItemSize = New System.Drawing.Size(18, 18)
            .SizeMode = TabSizeMode.Fixed
            .Show()
        End With
 
        m_Tabcontrol1.SelectTab("TabPage_Q")
 
    End Sub
End Class