即将要卸载窗体的时候，窗体对象就会收到一个伽eryUnload事件。通过检查UnloadMode参数可以了解窗体卸载的原因。以下是QueryUnloed事件处理过程的代码:Private Sub Form QueryUnload(Cancel As Integer, UnloadMode As Integer)Select Case UnloadModeCase vbFormControlMenu，用户关闭窗体Case vbFormCode，代码终止窗体Case vbAppWindows，当前窗口进行正在终止Case vbAppTaskManager，任务粉理器关闭程序Case vbFormMDlForm，MDI父窗体关闭窗口Case vbFormOwner父窗体被关闭End SelectEnd Sub当然，可以通过将Cancel参数设置为True拒绝卸载窗体:Private Sub Form QueryUnload(Cancel As Integer, UnloadMode As Integer)拒绝用户关闭窗口Select Case UnloadModeCase vbFormControlMenu,vbAppTaskManagerCancel一TrueEnd SelectEnd Sub