How to Close All Open Forms Except the Midi

I have an application that I need to close all open forms with the exception of the midi form. Basically this would work like a midi text editor that allows multiple form to be opened at the same time. I want to give the user the ability to close all forms at once if he so desires.

I have seen and tried several pieces of code that does this but it also shuts down the midi form and I want it to remain open.

Thanks,
Rev. Michael L. Burns

Code:

---

dim myform as Form
for each myform in Forms
  if myform.name <> "MDIFORM1" then
    unload myform
  end if
next

---

Hope this helps,

i've never used MDI forms, but this MAY work

dim Frm as form

for each frm in forms
if frm.mdichild = true then
unload frm
endif
next frm

Negative0 & Jimbob,

Thanks, Looks like either of these should work great.

Jimbob, I agree. I usually don't use MDI forms but this particular project requires it.

Thanks again,
Rev. Michael L. Burns