Vb - shotdown?

Code:

Private Const EWX_FORCE = 4 
Private Const EWX_LOGOFF = 0
' u modul stavljamo ovaj cod: Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub cmdlogof_Click()
ExitWindowsEx EWX_LOGOFF + EWX_FORCE, 0
End Sub

Code:

Private Const EWX_FORCE = 4
Private Const EWX_SHUTDOWN = 1

' u modul stavljamo ovaj cod: Declare Function ExitWindowsEx Lib "user32" (ByVal 
uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub cmdshotdown_Click()
ExitWindowsEx EWX_SHUTDOWN + EWX_FORCE, 0
End Sub

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

Code:

Public Declare Function ExitWindowsEx Lib "user32" (ByVal uflags As Long, ByVal dwReserved As Long) As Long'   to stavis u modul

Public Const EXIT_SHUTDOWN = 1

Public Sub ShutDown()
Call ExitWindowsEx(EXIT_SHUTDOWN, 0)
End Sub

Code:
    Shell "shutdown -f -s -t 00"