Private Sub TabStrip1_Click()
  Select Case True
    [color=green]' erste Karte mit Key = "eins"
    Case TabStrip1.Tabs("eins").Selected
      Frame1.ZOrder vbBringToFront
    [color=green]' zweite Karte mit Key = "zwei"
    Case TabStrip1.Tabs("zwei").Selected
      Frame2.ZOrder vbBringToFront
    Case ...
  End Select
End Sub

Gruß
Marcus