[RESOLVED] unload only midform child

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

Code:

---

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 :wave:

Check form name instead:

Code:

---

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

---

Ok. That worked. Thanks :wave: