Public Class frmMainV2


    Private Sub UserPanelSwitcher_Click(sender As Button, e As EventArgs) Handles btnFirmen.Click, btnAuftraege.Click, btnFrachtkosten.Click

        btnFirmen.BackColor = Color.White
        btnAuftraege.BackColor = Color.White
        btnFrachtkosten.BackColor = Color.White
        'btnTrips.BackColor = Color.White

        sender.BackColor = Color.RoyalBlue

        PanMain.Controls.Clear()
        If sender Is btnAuftraege Then Dim usrcntrl As New usrcntlAuftraege : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
        If sender Is btnFirmen Then Dim usrcntrl As New usrcntlFirmen : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
        If sender Is btnFrachtkosten Then Dim usrcntrl As New usrcntlFrachtkosten : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
        ' If sender Is btnTrips Then Dim usrcntrl As New usrcntlTrips : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)

    End Sub

    Private Sub frmMain_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
        frmLogin.Close()
    End Sub

    Private Sub btnCMR_Click(sender As Object, e As EventArgs) Handles btnCMR.Click
        Me.Cursor = Cursors.WaitCursor
        Dim eh As New SDL.frmCMR()
        eh.Show()
        Me.Cursor = Cursors.Default
        '  End If

        Exit Sub
        frmCMR.Show()
    End Sub

    Private Sub btnKasse_Click(sender As Object, e As EventArgs) Handles btnKasse.Click
        Dim s As New SDL.frmSecureLoginKassenbuch
        s.openKB = True
        s.disableCBO = False
        s.ShowDialog(Me)
    End Sub

    Private Sub btnVollmacht_Click(sender As Object, e As EventArgs) Handles btnVollmacht.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VERAG_EXPORT, -1, , True)
    End Sub

    Private Sub frmMainV2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lblVersion.Text = "Version: " & My.Resources.Version
        btnAuftraege.PerformClick()
    End Sub

    Private Sub btnSchliessen_Click(sender As Object, e As EventArgs) Handles btnSchliessen.Click
        Application.Exit()
    End Sub

    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
        frmLogin.UpdateDISPO()
    End Sub


End Class