Visual Basic的终止语句立即终止一个程序，并且由于它非常容易记住，一些程序员惯性的使用它。但是这个语句有个问题，它让程序的框架不能完全的卸载。

每个框架的卸载进程是不会被触发的除非结束语句被使用。如果你的程序使用卸载进程来存储数据，关闭文件并执行其他的工作，然后使用终止语句来结束进程明显不是一个好的主意。

最好的终止方法是卸载所有的框架。利用单一的框架程序，这不是个问题，象下面这样执行：Unload Me

但是，当这个程序有多个框架，就会出现多个问题，特别是当你不知道哪个框架在程序终的时候会打开。

为了完成这个工作，你可以使用框架收集器，这个收集器包含了当前负载框架的所有程序。这个技术在这个收集器中循环，卸栽每个窗体直到全都被卸载。结果是程序被适当地卸载，每个框架的卸载进程被触发。

下面的代码将演示整个进程：

Public Sub TerminateProgram()      

Static Unloading As Boolean
Dim idx As Integer

If Unloading Then Exit Sub
Unloading = True
For idx = Forms.Count - 1 to 0 Step -1
    Unload Forms(idx)
Next idx
Unloading = False

End Sub

这个代码要注意两点，首先，框架将按照相反的顺序被卸载，开始于框架收集器中的最后一个。如果你开始于收集器中最开始的一个框架，那么框架的数目将再分配。第二，一个标记被分配阻止卸载循环在进程准备好的时候执行。

    记住，一个框架可以通过设置停止语句到QueryUnlode进程中一个非零的值阻碍它自己的卸载。这样的话，上面所演示的进程可以关闭所有的框架和停止程序，用户可能需要手动关闭一个或者多个框架。

本文作者：Peter Aitken has在VB1.0发布的时候开始编程生涯。他编写了许多书并发表了许多关于计算机和VB相关的文章。