VB Tutorial: How to Shutdown a Computer using Visual Basic

Shutting down a Computer using Visual Basic

Requirements:
A Form
A Module
3 Commandbuttons

Module Code:
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uflags As Long,
ByVal dwReserved As Long) As Long Public Const EXIT_LOGOFF = 0 Public
Const EXIT_SHUTDOWN = 1 Public Const EXIT_REBOOT = 2 Public Sub ShutDown()
Call ExitWindowsEx(EXIT_SHUTDOWN, 0) End Sub
Public Sub Restart()
Call ExitWindowsEx(EXIT_REBOOT, 0) End Sub
Public Sub Logoff()
Call ExitWindowsEx(EXIT_LOGOFF, 0) End Sub

Form Code:
Private Sub Command1_Click()
restart End Sub
Private Sub Command2_Click()
shutdown end sub
Private Sub Command3_Click()
logoff end sub