如何关闭MDI的所有打开的子窗体

Question

比如父窗体的名字是frmP，有若干个子窗体已经打开，现在要全部关闭他们，该如何写呢？

Answer 1

Public Function CloseChildForm()
    Dim i As Integer
On Error Resume Next
    For i = Forms.Count - 1 To 0 Step -1
       '判断窗口名称
        If LCase(Forms(i).Name) <> LCase("frmP") Then
         If Forms(i).MDIChild = True Then
             Unload Forms(i)
             End If
        End If
     Next i
End Function

Answer 2

Dim a As Form
    For Each a In Forms
        If LCase(a.Name) <> ("frmp") Then
            If a.MDIChild = True Then
                Unload a
            End If
        End If
    Next