Option ExplicitPrivate Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_SHUTDOWN = 1Private Sub cmdExit_Click()
{
ExitWindowsEx EWX_SHUTDOWN , 0
}建议查阅msdn中ExitWindowsEx的用法以确定最适合你的系统的设定