关闭mdi父窗体时,如何自动卸载所有它的子窗体呢?
我的程序的主窗体是mdi父窗体,调用里面的好多mdi子窗体,但是关闭主窗体时,我必须保证所有子窗体全部自动关闭,否则就会出现资源释放不了的问题,可是如何自动unload所有子窗体呢?

1.是写在主窗体的 MDIForm_QueryUnload 事件中好,还是写在 MDIForm_Unload 事件中好呢?
好象是用 for each 判断,但是如何判断呢?
2.如果我想关闭所有的其他窗体,但是保留当前窗体不关闭,如何实现呢?关键是如何判断当前窗体不卸载?通过什么判断呢?

只卸载MDI子窗体和非当前窗体   
 Dim newForm As Form
    For Each newForm In Forms
        If newForm.hWnd <> MDIForm1.ActiveForm.hWnd And newForm.MDIChild = True Then Unload newForm
    Next