Public Class clsTabPage
    Inherits TabPage
 
    'Öffentliches Control
    Public 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
 
 
    'öffentliche Zuweisungsfunktion
    Public Sub SetHeadline(headline As String)
        lblHeader.Text = headline
    End Sub
 
End Class

'Zugriff auf das öffentliche Control
Dim tp0 As clsTabPage = DirectCast(tc.TabPages(0), clsTabPage)
tp0.lblHeader.Text = "Eine Headline"
 
'Zugriff auf öffentliche Methode
Dim tp1 As clsTabPage = DirectCast(tc.TabPages(1), clsTabPage)
tp1.SetHeadline("Auch eine Headline")