Как программно перезагрузить компьютер

Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Const EWX_FORCE = 4
Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1

' Перезагрузка
ExitWindowsEx EWX_REBOOT, 0
' Завершение работы
ExitWindowsEx EWX_SHUTDOWN, 0
' Закрытие неактивных приложений
ExitWindowsEx EWX_FORCE, 0

Пользоваться этими командами нужно осторожно, так как они принудительно закрывают все приложения.