Nunca llego el archivo .. jeje
Pero igual te dejo un codigo que no se si sea semejante al tuyo
Sirve para salir de windows y entrar con otro usuario, apagar el PC y reiniciar el PC.
La funcón se define de esta forma.
Public Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Argumentos:
-- uFlags: Se indica si apaga,reinicia,... Usando EWX_FORCE, se le fuerza a que lo haga.
Constantes que se pueden usar:
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
-- dwReserved: Siempre se pone a 0.
(si se pone dentro de un fomulario o módulo de clase, usar "private" en vez de "public")
Ejemplo:
code:--------------------------------------------------------------------------------
Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
msg = MsgBox("Pulse OK para apagar el PC.", _
vbExclamation + vbOKCancel , App.Title)
If msg = vbCancel Then End
ret& = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
End Sub
--------------------------------------------------------------------------------