Assuming your MDI Parent form is named MDIForm1 you could use something like this to close open forms while leaving the parent open.

Code:
Dim frm As Form

For Each frm In Forms
    If frm.Name <> "MDIForm1" Then
        Unload frm
    End If
Next