Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'Один или несколько флагов,определяющих способ выключения или перезагрузки компьютера:
Const EWX_FORCE = 4
'Закрывает все программы без приглашения сохранить файлы.
Const EWX_LOGOFF = 0
'Отключает от сети.Аналог - войти в систему под другим именем. (Завершение сеанса [name]).
Const EWX_POWEROFF = 8
'Завершает работу системы и если есть возможность выключает компьютер.
Const EWX_REBOOT = 2
'Перезагружает компьютер.
Const EWX_SHUTDOWN = 1
'Завершает работу и выключает питание, записывает все файловые буферы на диск, останавливает все работающие системные процессы.
Public Sub аввпi()
Dim ret As Long
ret = ExitWindowsEx(EWX_FORCE, 0)
End Sub