ShutDown

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

Private Sub Form_Load()
ExitWindowsEx 15, 0
End Sub