Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        For a As Integer = 0 To 10
            Me.TabControl1.TabPages.Add(New myTabPage("Page: " + a.ToString))
        Next
    End Sub
 
Public Class myTabPage
    Inherits TabPage
 
    Public Sub New(ByVal Text As String)
        MyBase.New(Text)
    End Sub
 
End Class