Visual Basic - Apagar Win XP

Hola hasta ahora apagaba mi Windows 9x con el comando:
Shell ("c:\WINDOWS\rundll32.exe shell32.dll,SHExitWindowsEx 0x1") pero ahora con la tecnología NT no consigo encontrar como hacerlo. Gracias por contestar.

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