如何一次性关闭MDIForm中非MDIchild form

Question

我的mdiform中有非mdiform child 窗体，请问如何在关闭mdiform同时关闭
所有的非mdichild窗体。

Answer 1

假设MDI主窗体的名称为：frmMain代码如下：    Dim Form As Form
    For Each Form In Forms
        If Trim(UCase(Form.Name)) <> Trim(UCase("frmMain")) Then
            If Form.MDIChild = False Then
                Unload Form
            End If
        End If
    Next

Answer 2

To: tanaya(蜡笔小新) 
Thank you and it's OK.