您开发的应用程序或许写得非常完整，您也很满意，但有时候却莫名其妙地出现了一点问题，在不该结束程序的时候，它被强迫结束了！可能使用者是按下了 Ctrl + Alt + Del，使用 Microsoft Windows 工作管理员关闭应用程序，或者强迫关机了！然而您的程序却没有考虑到这一点。
在正常情况下要结束一个表单，会经过三个事件 (当您使用 End 结束程序时是例外！)，

顺序如下：
1、Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
2、Private Sub Form_Unload(Cancel As Integer)
3、Private Sub Form_Unload(Cancel As Integer)

在这三个事件中都允许您设定 Cancel=True 来避免表单被结束，但是它们是不分青红皂白的，唯一能让您分辨表单为什么被结束的，就是在 Form_QueryUnload 中的 UnloadMode 参数！

unloadmode 参数返回下列的值：
常数                            值                         描述 
vbFormControlMenu              0                使用者从表单上的控制功能表中选取「关闭」指令。 
vbFormCode                         1                 Unload 陈述式被程序代码呼叫。 
vbAppWindows                     2                 目前 Microsoft Windows 作业环境任务结束。 
vbAppTaskManager             3                  Microsoft Windows 工作管理员正在关闭应用程序。 
vbFormMDIForm                   4                  因为 MDI 表单正在关闭的缘故，MDI 子表单正在关闭。 
vbFormOwner                       5                  表单因其拥有人关闭而关闭。 
所以下次您就可以在 Form_QueryUnload 中利用 UnloadMode 参数来判断程序是否　要做什么特别处理！

VB部分相关文章推荐

※VB快速读取 TextBox 第 N 行的资料

※VB禁止使用 Alt-Tab 或 Ctrl-Alt-Del

※生成迷宫的程序

※另一方法转换大小写

※VB控件注册 - 利用资源文件将dll、ocx打包进exe文件

※VB利用资源文件进行工作

※[转]vb高效编程（优化）

※VB阳历转阴历

※纯VB代码取得硬盘的物理序列号

※VB获得磁盘的文件系统

※做VB的，经常注册和反注册OCX控件和DLL链

※VB从程序中生成Exe文件

※VB6监视/操作剪贴板示例(VB6.0代码)

※VB6里自动提交/自动填表的一种相对通用的方案

※VB移动没有标题的窗体

※VB随机字母的函数

※VB删除带子文件夹和文件的文件夹

※VB怎样屏蔽 Alt+F4键

※VB 隐藏进程

※vb屏蔽文本框点右键时的弹出菜单

※VB手控Combobox的打开或收起

※在VB中INI文件的读写、删除（对中文支持很好）

※vb全局热键的写法（占很少的资源）

※vb取消文本框的粘贴功能

※VB常用文件操作类

※VB获取特殊文件夹

※VB获取windows各常用目录的函数（模块）

※VB生成太极图

※VB:常用内部函数大全,你会了几个呢?

※vb中SendMessage函数

※精简VB程序的代码

※VB:将数字转换为大写中文

※VB:设定 MsgBox 在若干时间之后若无回应则自动关闭

※VB:读取及设定NumLock/CapsLock/ScrollLock的值

※VB:您知道 Mid$ 函量可以放在 '=' 的左方吗

※VB后台获得按键,并执行自己的函数(非钩子及热键)

※VB:将短文件名格式转成长文件名

※在vb中使用Iphlpapi.dll获取网络信息(上）

※在vb中使用Iphlpapi.dll获取网络信息(下）