'Tabs erstellen pro Device
        For i = 1 To int_devices
            Tabs_PRT.TabPages.Add("Device " & i)
        Next i

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"

 Public Sub New(headline As String)
 
            lblHeader.Text = headline
 
            txt_prt_ID.Name = "txt_prt_dev_" & DeviceNr & "_ID"                 _
                          'txt_prt_dev_X_id
            txt_prt_Name.Name = "txt_prt_dev_" & DeviceNr & "_name"             _
                        'txt_prt_dev_X_name
            cmb_prt_type.Items.Add("netprinter")
            cmb_prt_type.Items.Add("serdrawer")
            cmb_prt_type.Name = "cmb_prt_dev_" & DeviceNr & "_type"             _
                          'cmb_prt_dev_X_type
 
            'Group1 Inhalt:
            txt_prt_spoolpath.Name = "txt_prt_dev_" & DeviceNr & "_spoolpath"   _
                          'txt_prt_dev_X_spoolpath
            txt_prt_Delay.Name = "txt_prt_dev_" & DeviceNr & "_delay"           _
                        'txt_prt_dev_X_delay

txt_prt_dev_1_spoolpath.Text = "Test"

clsTabPage.txt_prt_dev_1_spoolpath

Main_Functions.txt_prt_dev_1_spoolpath

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")