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 CmdReboot_click()
   var& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub

'Otra forma de apagar PC usando Shell
Private Sub CmdTurnOff_Click()
On Error GoTo Err_Comando38_Click
Dim stAppName As String
stAppName = "C:\WINDOWS\system32\shutdown.exe"
Call Shell(stAppName, 1)

Exit_Comando38_Click:
Exit Sub

Err_Comando38_Click:
MsgBox Err.Description
Resume Exit_Comando38_Click
End Sub

Private Sub Form_Load()
WMP.URL = "C:\Documents and Settings\Administrador\Mis documentos\Mi música\komodo\komodo.mpg"
End Sub