CloseChild

Private Sub mnuCloseAll_Click()
Dim i As Integer
While Forms.Count > 1
=20
i =3D Forms.Count - 1
If Forms(i).MDIChild Then Unload Forms(i)
=20
Wend
=20
End Sub