Guarda questa rutine:

codice:
Dim frm As Form
For Each frm In Forms
   If Not frm Is MDIForm1 Then
    Unload frm
   End If
Next frm
in pratica cicla tutti i form e chiude quelli che non sono il tuo form MDI. Al posto di MDIForm1 devi metterci il nome del tuo form MDI.