Public Class clsTabPage
    Inherits TabPage
 
    Private lblHeader As New Label With
        {.Parent = Me, .Location = New Point(10, 10), .Size = New Size(200, 30)}
 
 
    Public Sub New(headline As String)
 
        Me.Size = New Size(220, 100)
        lblHeader.Text = headline
 
    End Sub
 
End Class

tc.TabPages.Add(New clsTabPage("meine TabPage"))
tc.TabPages.Add(New clsTabPage("meine zweite TabPage"))
 
tc.TabPages(0).BackColor = Color.Yellow
tc.TabPages(1).Text = "was auch immer"