Quanto casino!
Usa questo semplicissimo codice

codice:
Public Const EWX_LOGOFF = 0 
Public Const EWX_SHUTDOWN = 1 
Public Const EWX_REBOOT = 2 
Public Const EWX_FORCE = 4                 

Declare Function ExitWindowsEx Lib "user32" Alias _
"ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long                 

t& = ExitWindowsEx(EWX_FORCE OR EWX_SHUTDOWN, 0)