28 lines
777 B
VB.net
28 lines
777 B
VB.net
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 |