Private Sub Form_Load()
With SSTab1 'Anfang Reiter Prozedur
  .Visible = False
  .Tabs = 12 'Anzahl Reiter
  .TabsPerRow = 4 'davon 4 pro Zeile
  .TabHeight = 32 * Screen.TwipsPerPixelY
  .TabOrientation = ssTabOrientationTop
 
      .TabCaption(0) = ("Optionen")
    Set .TabPicture(0) = LoadPicture("C:\EinBild.bmp")
 
    .TabCaption(1) = ("Anzeige")
    Set .TabPicture(1) = LoadPicture("C:\EinBild.bmp")
 
    .TabCaption(2) = ("Hilfe")
    Set .TabPicture(2) = LoadPicture("C:\EinBild.bmp")
 
  .Visible = True
End With 'Ende Reiter Prozedur
 
End Sub