[RESOLVED] unload only midform child

[RS_Arm]

Hi.
I would like to unload, only, mdiform childs.
I've tryied this, but obviously it doesn't work:

Private Sub close_all_Click()
Dim objForm As Form

For Each objForm In Forms
    If (objForm.MDIChild = True) Then 'error
        Unload objForm
    End If
Next

Set objForm = Nothing
End Sub

Need help.
Thanks