如何判断用户正在关机或正在重启？

Question

windows在退出之前会向所有窗口询问，只有所有窗口都同意关闭时才能退出。
在VB中，关闭WINDOWS会产生Form_QueryUnload事件，如下：Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'在这儿加上你的代码：
If MsgBox("是否真的要退出Windows？", vbQuestion + vbYesNo, "提示") = vbYes Then
    Cancel = False
Else
    Cancel = True
End If
End Sub