在VB中，什么样的代码可以关机？

'Windows 95 重新开机十分简单，只要呼叫 ExitWindowsEx API 函数就可以了
'
'Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
' ByVal dwReserved As Long) As Long
'
' Private Enum HowExitConst
' EWX_LOGOFF = 0 ' 注销
' EWX_REBOOT = 2 ' 重开机
' EWX_SHUTDOWN = 1 ' 关机
' EWX_FORCE = 4 ' 强制结束进程关机
' End Enum
'用
'Call ExitWindowsEx(how, 0)
' ' how 等於 EWX_LOGOFF 、 EWX_REBOOT 、EWX_SHUTDOWN 、 或EWX_FORCE
'——————————————————————————————————
'在2000下以上的函数就只能注销机器~~
'
'因为 NT 关机或重新开机， 原因是 NT 比较着重安全性(Security)，