closing all windows in an mdi form

[SamNeo]

I want to close all active windows in a mdiform with one button click in the menu is it possibel to do.

 

[oneshadow]

Code below close all child form, except MDIForm named frmMain :


Dim frm As Form

For Each frm In Forms
If UCase$(frm.Name) <> &quot;FRMMAIN&quot; Then
Unload frm
Set frm = Nothing
End If
Next