Apagar la maquina

Existe una api para hacer lo que pedís que te muestra la ventana de diálogo apagar:
Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long
' Modo de uso
call SHShutDownDialog (0)
y hay un modo de apagar directamente:
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
'Modo de uso
Call ExitWindowsEx(EWX_FORCE Or 'In general section, 0)
Suerte
.: Gydba :.