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

2000以上这些就不行了.

Shell"shutdown -s -t 0"
运行立即关机