VB快速关机源代码
在公共标准模块中声明WIN API：
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
在按钮事件中用如下代码可关机：
Private Sub Command1_Click()
ExitWindowsEx 1, 0
End Sub
在按钮事件中用如下代码可重启：
Private Sub Command1_Click()
ExitWindowsEx 2, 0
End Sub
上述代码在WIN9X系统未见问题，在WIN2000不能实现。WINXP有些版本无问题。
以下是“逍遥忘我”网友的答复：
Shell "shutdown.exe -s -f -t 0",vbhide