Visual Basic - Apagar la PC

Necesito que me digan como hacer para apagar la PC con Windows XP.
La funcion Shell que utilizo, solamente funciona con win98 y Millennium pero no con XP.
La funcion que utilizo es la siguiente:
Shell ("c:\WINDOWS\rundll32.exe shell32.dll,SHExitWindowsEx 0x1")
Desde ya, muchas gracias.

Fijate con:

Public Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long