con questa "API" hai provato ?!
(col vb6 funziona)

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


;-)
ciao
mauro v.