Public Class frmLogOff

    Dim FinalCountdown As Integer = 30
    Private Sub frmLogOff_Load(sender As Object, e As EventArgs) Handles Me.Load
        Label2.Text = FinalCountdown.ToString
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If FinalCountdown > 0 Then
            FinalCountdown = FinalCountdown - 1
            Label2.Text = FinalCountdown.ToString
        Else
            Timer1.Stop()
            Process.Start("shutdown", "-l")
            Me.Close()
        End If

    End Sub

    Private Sub BtnAbbrechen_Click(sender As Object, e As EventArgs) Handles BtnAbbrechen.Click
        Timer1.Stop()
        cRes.DisableAutoLogoff = True
        Me.Close()
    End Sub


End Class