如果用户在一个MDI窗体中打开了许多子窗体，要一个个关闭确实是件麻烦事。当然你可以将MDI窗体卸载掉来解决这个问题，但如果用户此时还不想退出程序呢？
下面这个小程序可帮你这个忙。
首先在MDI窗体的菜单中加入mnuCloseAll这个菜单项，然后在其Click事件中加入下面的代码：

Screen.MousePointer = vbHourglass

Do While Not (Me.ActiveForm Is Nothing)
    Unload Me.ActiveForm
Loop

Screen.MousePointer = vbDefault