Public Class Form1
 
  Dim oTabs() As TabPage
 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
    With TabControl1.TabPages
      ReDim oTabs(.Count - 1)
      For i As Integer = 0 To .Count - 1
        oTabs(i) = .Item(i)
      Next
      .Clear()
      .Add(oTabs(0))
    End With
 
    With ComboBox1.Items
      For i As Integer = 2 To 8
        .Add("Reiter " & CStr(i))
      Next
    End With
    ComboBox1.SelectedIndex = 0
  End Sub
 
  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    With ComboBox1
      If .SelectedIndex >= 0 Then
        TabControl1.TabPages.Clear()
        TabControl1.TabPages.Add(oTabs(0))
        TabControl1.TabPages.Add(oTabs(.SelectedIndex + 1))
      End If
    End With
  End Sub
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de