表单的queryunload事件中，有如下代码
 
nYesNo = MessageBox("确定要退出吗？",4+48+256,"提示")
If nYesNo = 6 &&如果选取了“是”，则退出
 *-- 退出前要执行的代码写在这里，
 *-- 然后执行类似下面的退出代码
ThisForm.Release
Else &&选取了“否”，不退出
NODEFAULT
EndIf
需要说明的是，当在代码中直接执行 RELEASE 命令或直接调用表单的 Release 方法时，不会触发 QueryUnload 事件。因此，我们应尽量避免在代码中直接执行RELEASE 命令或调用表单的 Release 方法。取代的方法是，当要卸载表单时，转向调用表单的QueryUnload方法，比如在“退出”按钮的click事件中：
thisform.QueryUnload