'Dieser Source stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.
 
'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source !
 
Option Explicit
 
Private Sub Command1_Click()
  Dim X%, PosNr%, TabNr%
    'Kopien der existierenden Listbox erstellen
    For X = 1 To 23
      Load List1(X)
    Next X
 
    'Drei neue Tabs erstellen
    SSTab1.tabs = SSTab1.tabs + 3
 
    'Den drei neuen Tabs einen Titel geben
    For X = 3 To 5
      SSTab1.TabCaption(X) = "Extra Tab " & X
    Next X
 
    'Listboxen umsetzen, positionieren und Inhalt geben
    For X = 0 To 23
      PosNr = X Mod 4
      TabNr = Int(X / 4)
 
      'aktuellen Tab setzen
      SSTab1.Tab = TabNr
 
      'Listbox der Registrierkarte zuweisen
      Set List1(X).Container = SSTab1
 
      'positionieren
      List1(X).Top = 900
      List1(X).Left = 300 + 1400 * PosNr
 
      'Wert zuweisen
      List1(X).AddItem "ListBox " & CStr(X)
      List1(X).AddItem "Karten Nummer " & CStr(TabNr)
 
      List1(X).Visible = True
    Next X
        'aktuellen Tab setzen
      SSTab1.Tab = 2
 
 
 
End Sub
 
Private Sub Command2_Click()
Dim n as long
 
  For n = 0 To   2
   SSTab1.tabs =  SSTab1.tabs - 1
  Next
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  Dim X%
    For X = 1 To List1.UBound
      Unload List1(X)
    Next X
End Sub