[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

[RhinoBull]

Check form name instead:

If Not objForm.Name = "MDIForm1" Then
    '...
End If

[RS_Arm]

Ok. That worked. Thanks