Private Sub Form_Load()
    DisableCloseWindowButton Me
    MinimizeRoutine
 
    Timer1.Interval = 50
    Timer1.Enabled = True
    Timer1.Tag = 7
End Sub
 
Private Sub timer1_Timer()
    Timer1.Enabled = False
    sevTabStrip1.ActiveTab = Val(Timer1.Tag)
End Sub
 
' =======================================================================
' Steuerung des Main TabStrips
' =======================================================================
 
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
    Timer1.Tag = 7
    Timer1.Enabled = True
End Sub
 
Private Sub AbholPersonen()
    ZusteigePersonen.Show vbModal
    Set ZusteigePersonen = Nothing
End Sub