' Controls: 1 * SSTab
Private Sub Form_Load()
 
Dim i%
 
Randomize
With SSTab1
  .Visible = False
  .Tabs = 12
  .TabsPerRow = 4
  .TabHeight = 32 * Screen.TwipsPerPixelY
  .TabOrientation = ssTabOrientationTop
  For i = 0 To .Tabs - 1
    .TabCaption(i) = Choose(1 + Int(Rnd * 3), "Anzeige", "Farbe", "Optionen") ' 
    ' usw.
    Set .TabPicture(i) = LoadPicture("C:\EinBild.bmp")
  Next i
  .Visible = True
End With
 
End Sub

Gruss,

Zardoz