<code>Private Sub Form_Load()
  Dim I As Integer
 
  <font color=green>' Registerkarten positionieren</font>
  With Picture1(0)
    For I = 1 To Picture1.UBound
      Picture1(I).Move .Left, .Top, .Width, .Height
    Next I
  End With
 
  <font color=green>' 1. Registerkarte öffnen</font>
  SetTabStrip 1
End Sub
 
Private Sub SetTabStrip(ByVal nTab As Integer)
  Dim I As Integer
  Dim Result As Integer
 
  With TabStrip1  
    Result = False
    If Not .SelectedItem Is Nothing Then _
      Result = (.SelectedItem.Index = nTab)
 
    <font color=green>' Wenn gewünschte Registerkarte noch nicht geöffnet
    ' ist, dann jetzt nachholen</font>
    If Not Result Then
      DoEvents
      .SelectedItem = .Tabs(nTab)
      .Refresh
      DoEvents
    End If
 
    <font color=green>' PictureBox ein/ausblenden</font>
    For I = 0 To Picture1.UBound
      Picture1(I).Visible = (I = nTab - 1)
    Next I
    Picture1(nTab - 1).ZOrder 0
    DoEvents
 
    <font color=green>' Fokus auf das erste Element setzen</font>
    On Local Error Resume Next
    SendKeys "{TAB}", True
    On Local Error GoTo 0
  End With
End Sub
 
<font color=green>' Klicken auf Registerkarte</font>
Private Sub TabStrip1_Click()
  With TabStrip1
    If Not .SelectedItem Is Nothing Then
      SetTabStrip .SelectedItem.Index
    End If
  End With
End Sub</code>