first commit

Form37.vb

@@ -0,0 +1,47 @@
+Public Class Form37
+    Public va As Integer = 0
+    Private Sub Form37_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If va = 3 Then
+            Label1.Text = "verrouillage de la session dans:"
+        ElseIf va = 4 Then
+            Label1.Text = "Fermeture de extrème downloaders dans:"
+        ElseIf va = 5 Then
+            Label1.Text = "Arrêt de l'ordinateur dans:"
+        End If
+    End Sub
+
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        If Label2.Text = 0 Then
+            Timer1.Stop()
+            If va = 3 Then
+                Shell("rundll32.exe user32.dll, LockWorkStation")
+                Close()
+            ElseIf va = 4 Then
+                End
+            ElseIf va = 5 Then
+                Shell("shutdown /p /f")
+            End If
+        Else
+            Label2.Text = Label2.Text - 1
+        End If
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Timer1.Stop()
+        Label2.Text = "90"
+        Close()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Timer1.Stop()
+        Label2.Text = "90"
+        If va = 3 Then
+            Shell("rundll32.exe user32.dll, LockWorkStation")
+            Close()
+        ElseIf va = 4 Then
+            End
+        ElseIf va = 5 Then
+            Shell("shutdown /p /f")
+        End If
+    End Sub
+End Class