' Controls: 1 * SSTab
Private Sub Form_Load()
Dim i%
 
Randomize
With SSTab1
  Command1.Visible = False
  Command1.Tabs = 12
  Command1.TabsPerRow = 4
  Command1.TabHeight = 32 * Screen.TwipsPerPixelY
  Command1.TabOrientation = ssTabOrientationTop
  For i = 0 To Command1.Tabs - 1
    Command1.TabCaption(i) = Choose(1 + Int(Rnd * 3), "Anzeige", "Farbe", _
      "Optionen") ' usw.
    Set Command1.TabPicture(i) = LoadPicture("C:\Dokumente und" & _
    "Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\Blaue" & _
    "Berge.jpg")
  Next i
  Command1.Visible = True
End With
 
End Sub