即將要卸載窗體的時候，窗體對象就會收到一個伽eryUnload事件。通過檢查
UnloadMode參數可以了解窗體卸載的原因。以下是QueryUnloed事件處理過程的代碼:
Private Sub Form QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case vbFormControlMenu
，用戶關閉窗體
Case vbFormCode
，代碼終止窗體
Case vbAppWindows
，當前窗口進行正在終止
Case vbAppTaskManager
，任務粉理器關閉程序
Case vbFormMDlForm
，MDI父窗體關閉窗口
Case vbFormOwner
父窗體被關閉
End Select
End Sub
當然，可以通過將Cancel參數設置為True拒絕卸載窗體:
Private Sub Form QueryUnload(Cancel As Integer, UnloadMode As Integer)
拒絕用戶關閉窗口
Select Case UnloadMode
Case vbFormControlMenu,vbAppTaskManager
Cancel一True
End Select
End Sub
