Dim nTab As New TabPage
        Dim anzahl As Integer
        anzahl = TabControl1.TabCount + 1
 
 
        With nTab
            .Text = "Tab " + anzahl.ToString
 
        End With
        TabControl1.Controls.Add(nTab)