这个ExitWindowsEx(EWX_SHUTDOWN, 0)我用了之后怎么每次都是注销而不是关机.

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

Private Sub Command1_Click()
Form1.Height = 0
End Sub

Private Sub Timer1_Timer()
Dim b
b = ExitWindowsEx(EWX_SHUTDOWN, 0)
End If
End Sub

[此贴子已经被作者于2006-2-20 10:49:10编辑过]

帮看一下这段先.
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Command1_Click()
Form1.Height = 0
End Sub

Private Sub Timer1_Timer()
Dim b
b = ExitWindowsEx(EWX_SHUTDOWN, 0)
End If
End Sub