LogON LogOFF werden protokoliert

frmLogOff.vb

@@ -0,0 +1,28 @@
+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