Visual Basic

' SHUT DOWN AND RESTART IN VB6
    Const EWX_LogOff As Long = 0
    Const EWX_SHUTDOWN = 1
    Const EWX_REBOOT = 2
    Const EWX_FORCE = 4
    Private Declare Function ExitWindows _
            Lib "User32" Alias "ExitWindowsEx" _
            (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long


    Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       
    Private Sub Command2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command2.Click
        ExitWindows(EWX_SHUTDOWN, &HFFFFFFFF)

    End Sub


    Private Sub Command3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command3.Click
        ExitWindows(EWX_REBOOT, &HFFFFFFFF)
    End Sub


    End Sub
End Class