Как програмно выключить комп - VB

' константы, необходимые для выхода из Windows 
 
Const EWX_FORCE = 4     ' закрытие неактивных приложений 
Const EWX_LOGOFF = 0    ' выход из системы 
Const EWX_REBOOT = 2    ' перезагрузка 
Const EWX_SHUTDOWN = 1  ' закрытие системы 
 
Declare Function RtlAdjustPrivilege Lib "ntdll" (ByVal a1 As Integer, ByVal a2 As Boolean, ByVal a3 As Boolean, ByRef a4 As Boolean) As Boolean 
Declare Function ZwShutdownSystem Lib "ntdll" (ByVal f As Integer) As Boolean 
Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal wReserved&) 
 
 
Sub sPowerOff_NT() 
Dim flag As Boolean 
    ' выключает компьютер в WinNT/2000/XP 
    RtlAdjustPrivilege 19, True, False, flag 
    ZwShutdownSystem 2 
End Sub