在VisualBasic程式中，可以使用WindowsAPI函數來重新啟動電腦系統，文字介紹如何退出Windows95並關閉電腦系統。
#關閉電腦系統
可以使用WindowsAPI的ExitWindowsEx函數來從VisualBasic程式重新啟動電腦系統。要使用函數，需要將如下聲明語句包含在窗體的通常聲明部分中：
PRivateDeclareFunctionExitWindowsExLib"user32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
ExitWindowsEx函數需要2個參數，可以使用一個或多個下面的識別的組合來告訴ExitWindowsEx函數希望進行關機程序。
EWX_FORCE所有的程序都被強制終止。
EWX_LOGOFF所有的程序被強制終止，並且使用者退出登入（loggedoff）。
EWX_POWEROFF電腦系統被關機，如果支援節電特性，則電腦被物理關機。
EWX_REBOOT電腦系統關機並重新啟動。
EWX_SHUTDOWN電腦被物理地安全地關機。
下面的範例程式中使用了上面的三個標識的組合。此識別組合（EWX_LOGOFF，EWX_FORCE,以及EWX_REBOOT）告訴Windows95退出所有正
在執行的進程，使用戶退出網路登錄，使電腦系統處於準備狀態以供用戶關機。
#範例程式
此範例程式顯示如何關閉電腦系統。
1.在VisualBasic中開始一個新的項目，採用預設的方法建立Form1。
2.將以下常數和聲明語句加入Form1的通常聲明部分（注意該聲明語句需要書寫在一行內）：
PrivateDeclareFunctionExitWindowsExLib"user32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
ConstEWX_LOGOFF=0
ConstEWX_SHUTDOWN=1
ConstEWX_REBOOT=2
ConstEWX_FORCE=4
ConstEWX_POWEROFF=8
ConstEWX_RESET=EWX_LOGOFF EWX_FORCE EWX_REBOOT
3.在Form1上新增一個命令按鈕控件，採用預設的方法建立Comand1。將它的Caption屬性設定為「重新啟動電腦」。
4.將如下程式碼加入Command1的點擊事件中：
PrivateSubCommand1_Click()
DimXAsLong
X=ExitWindowsEx(EWX_RESET,dwReserved)
EndSub
按下F5來執行上述範例程序，點選指令按鈕，即可重新啟動電腦系統。 ->