★ 在一个窗体卸载关闭时，我们知道会发生Unload事件，事实上，在Unload事件发生前，另一个重要事件会发生，即Form_QueryUnload事件，在此事件中，为用户提供停止卸载继续工作的机会，如下：
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End Sub
其中有两个参数：cancel:若设此参数为True，可阻止unload事件发生。
unloadmode:返回引起窗体卸载关闭的原因：0为使用标题栏"关闭"（"关闭"纽或标题栏的系统菜单栏），1为代码中用unload me语句，2为Windows环境会话结束；3为Windows任务管理器关闭程序；4为MDI子窗体关闭。
在窗体的存在周期中，发生的窗体事件依次为：
Form_initialize->Form_Load->form_Resize->form_Activate->Form_GotFocus
->Form_Paint->Form_QueryUnload->Form_Unload->Form_Terminate.
★ 我们经常用unload me来关闭一个窗体，但此命令并不能将一个窗体从内存中完全清除，要想完全移走窗体，应将窗体设置为nothing,即在form_unload事件中写：
set form1=nothing
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End Sub
其中有两个参数：cancel:若设此参数为True，可阻止unload事件发生。
unloadmode:返回引起窗体卸载关闭的原因：0为使用标题栏"关闭"（"关闭"纽或标题栏的系统菜单栏），1为代码中用unload me语句，2为Windows环境会话结束；3为Windows任务管理器关闭程序；4为MDI子窗体关闭。
在窗体的存在周期中，发生的窗体事件依次为：
Form_initialize->Form_Load->form_Resize->form_Activate->Form_GotFocus
->Form_Paint->Form_QueryUnload->Form_Unload->Form_Terminate.
★ 我们经常用unload me来关闭一个窗体，但此命令并不能将一个窗体从内存中完全清除，要想完全移走窗体，应将窗体设置为nothing,即在form_unload事件中写：
set form1=nothing
