Public Sub neue_registerkarte()
        Dim control As New TabPage ' neuen Reiter erstellen.
        control.Text = "huhu" 'Text des Pülldownmenüs übernehmen
        TabControl1.TabPages.Add(control)
 
 
    End Sub