如何获取MDI窗体内的所有子窗体，并关闭它们？

[jiangshan1203]

如何获取MDI窗体内的所有子窗体，并关闭它们？（等待）谢谢！

[koa3000]

For Each Form In Forms
If Form.Name <> "MDIForm1" Then
unload Form
End If
Next

[twinking]

同意
不过好象有点麻烦

[pirateRocy]

关闭所有的子窗体，但是不关闭父窗体。代码如下：
dim frm as form
for each frm in forms
if frm.MDIChild then unload frm
next frm

[yefm]

同意楼上

[jiangshan1203]

谢谢你们啊！好了！