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