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

在一个多文档应用程序中，我需要增加一个功能“关闭所有窗口”，该功能用于关闭所有已经打开MID窗口，但是不退出应用程序。在关闭每个子窗口之前，系统会检查当前窗口的内容有没有保存，vbYes则保存,vbNo则放弃保存,vbCancel则取消操作“关闭所有窗口”功能。因此我写了下列语句   
    
  dim   frm   as   form   
    
  for   each   frm   in   Forms   
          if   typename(frm)="frmDocEdit"   then   
                    unload   frm   
          endif   
  next   
    
  这个语句有一个问题，比如如果我依次打开了frmA、frmB、frmC、frmD，如果我在关闭frmA的时候选择了“取消”，则不应该再执行frmB、frmC、frmD的Unload操作，但是上述语句不会，他会执行所有窗体的Unload操作……郁闷…………   这个已经有网友[aljcn（完美人生：能切实帮别人解决问题的前提下才骗分）]解决了..请知道的帮忙解一下,多谢..