'Controls: 1 * TabStrip, 1 * Picturebox mit Index = 0
Option Explicit
 
Private Sub Form_Load()
 
Dim i%, XPos&, YPos&, Breite&, Hoehe&
 
Randomize
 
With TabStrip1
 
  XPos = .ClientLeft
  YPos = .ClientTop
  Breite = .ClientWidth
  Hoehe = .ClientHeight
 
  With .Tabs
 
    .Clear
    .Add , , "Reiter 1"
    .Add , , "Reiter 2"
    .Add , , "Reiter 3"
 
    For i = .Count - 1 To 0 Step -1
      If i > 0 Then Load Picture1(i)
      With Picture1(i)
        .BorderStyle = vbBSNone
        .BackColor = Rnd * &HFFFFFF
        .Move XPos, YPos, Breite, Hoehe
        .ZOrder vbBringToFront
        .Visible = True
      End With
    Next i
  End With
End With
 
End Sub
 
Private Sub TabStrip1_Click()
 
Dim i%, Idx%
 
Idx = TabStrip1.SelectedItem.Index - 1
For i = 0 To Picture1.UBound
  With Picture1(i)
    If i = Idx Then
      .Visible = True
      .ZOrder vbBringToFront
    Else
      .Visible = False
    End If
  End With
Next i
 
End Sub

Gruss,

Zardoz