ExitWindowsEx problem

[Nack]

Hey, I found the ExitWindowsEx i the AllAPI Guide and thought it was pretty cool, but I can't get it to run because it says that it wants ExitWindowsEx to be a variabel.

Here's the code:

'In general section
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
'reboot the computer
'Problem is in this line I think
ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub

-----

I think it says that, because there is () after ExitWindows, but it says so in the guide example.
Thanks for your help.
-Nack

[Nack]

Do you know the right declaration then?
-Nack

[Nack]

You wrote the exact same declaration as in the example!

[Nack]

The error message marks the text: ExitWinsdowsEx and says this:
Compile Error:
Sub or Function not defined

[Nack]

I got it working now!