'Labels erstellen
        Dim labelcounter As Integer = 10
        Dim Top_Label As Label
        Dim NewPages As TabPage
 
        For u As Integer = 1 To labelcounter
 
            Top_Label = New Label
            NewPages = New TabPage
 
            ' Label zeichnen
            Top_Label.Font = New System.Drawing.Font("Arial", 10.0!, _
              System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, _
              CType(0, Byte))
            Top_Label.Location = New System.Drawing.Point(8, 64)
            Top_Label.Name = "lbl_TOP_Liste" & u
            Top_Label.Text = "Label_" & u
            Top_Label.Size = New System.Drawing.Size(304, 16)
            Top_Label.TextAlign = ContentAlignment.MiddleLeft
            Top_Label.TabStop = False
            Top_Label.Visible = True
 
            TabControl1.TabPages.Add(NewPages)
            NewPages.Text = "Page_" & u
            NewPages.Controls.Add(Top_Label)
 
        Next