Luk pc ned / genstart

Hej Eksperter.

Jeg forsøger i Visual Basic at lukke computeren med følgende kode:
---------------------------------------------
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_FORCE = 4
Private Const EWX_LOGOFF = 0
Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1

  succes = ExitWindowsEx(EWX_SHUTDOWN, 0)
  If succes = 0 Then MsgBox ("Ikke udført!")
-------------------------------------------
Det virker dog overhovedet ikke, jeg får bare beskeden "Ikke udført".

Hvis jeg erstatter EWX_SHUTDOWN med 1 virker det heller ikke, og det samme gælder genstart. Kun logoff kan den finde ud af.

Jeg har fundet ud af, at 5 og 6 burde tvinge computeren til at lukke ned / genstarte, men heller ikke disse tal virker. Nogen forslag?

På forhånd mange tak!