====一个有关批量关闭MID子窗体的疑问====

在一个多文档应用程序中，我需要增加一个功能“关闭所有窗口”，该功能用于关闭所有已经打开MID窗口，但是不退出应用程序。在关闭每个子窗口之前，系统会检查当前窗口的内容有没有保存，vbYes则保存,vbNo则放弃保存,vbCancel则取消操作“关闭所有窗口”功能。因此我写了下列语句dim frm as formfor each frm in Forms
    if typename(frm)="frmDocEdit" then
         unload frm
    endif
next这个语句有一个问题，比如如果我依次打开了frmA、frmB、frmC、frmD，如果我在关闭frmA的时候选择了“取消”，则不应该再执行frmB、frmC、frmD的Unload操作，但是上述语句不会，他会执行所有窗体的Unload操作……郁闷…………有请高手了，马上给分！！