I try to use VB6 to reboot (cold boot) my computer thru my application by using the following statement :

in module1 :

' u/ windows action
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long

in my form :

Private sub cmdReboot_click()
t = ExitWindowsEx(EWX_REBOOT, 0)
End Sub

but it does not work, it seems like I logging in with a different user
.. please help .. thanks for any advice or suggestion

Regards
Winan