Private Sub sevTabStrip1_SelectChanged(ByRef TItem As sevTab.Tab)
    Select Case TItem.Index
        Case 1
            ' ---------------------------------------------- Rundreise / 
            ' Pendefahrt buchen
            BuchungRundreise
        Case 2
            ' ---------------------------------------------- Tagesfahrten buchen
            BuchungTagesfahrt
        Case 3
            ' ---------------------------------------------- Zusatzleistung 
            ' buchen
            BuchungZusatz
        Case 4
            ' ---------------------------------------------- Hotelunterkunft 
            ' buchen
            BuchungHotel
        Case 5
            ' ---------------------------------------------- Einsteigeplan der 
            ' Reise
            EinsteigeplanErstellen
        Case 6
            ' ---------------------------------------------- Einsteigeplan der 
            ' Reise
            AbholPersonen
    End Select
End Sub
 
Private Sub AbholPersonen()
    ZusteigePersonen.Show vbModal
    Set ZusteigePersonen = Nothing
    sevTabStrip1.ActiveTab = 7
End Sub
 
Private Sub EinsteigeplanErstellen()
    Einsteigeplan.Show vbModal
    Set Einsteigeplan = Nothing
    sevTabStrip1.ActiveTab = 7
End Sub
 
Private Sub BuchungRundreise()
    Reisebuchung.Show vbModal
    Set Reisebuchung = Nothing
    sevTabStrip1.ActiveTab = 7
End Sub
 
Private Sub BuchungTagesfahrt()
    Tagesfahrtbuchung.Show vbModal
    Set Tagesfahrtbuchung = Nothing
    sevTabStrip1.ActiveTab = 7
End Sub
 
Private Sub BuchungZusatz()
    ZusatzBuchung.Show vbModal
    Set ZusatzBuchung = Nothing
    sevTabStrip1.ActiveTab = 7
End Sub
 
Private Sub BuchungHotel()
    Hotelbuchung.Show vbModal
    Set Hotelbuchung = Nothing
    sevTabStrip1.ActiveTab = 7
End Sub