一个很弱的问题，大家来抢分吧

[mailzyok]

如何关闭所有的MDI子窗口

[crystalinpara]

dim frm as form
for each frm in forms
unload frm
next frm

[mailzyok]

如果开始没有一个子窗体，这么做就会报错阿

[siemems]

可以设置按钮的属性enable为false

[danielinbiti]

dim frm as form
on error resume next
for each frm in forms
unload frm
next frm

[feiqinfeiwhw]

同意楼上说法

[flxa]

不要忘记在加一句：Ｏn error GOTO 0

[hulianchi]

intFormsCount = Forms.Count
'Unload 所有窗口
Do While intFormsCount > 0
intFormsCount = intFormsCount - 1
Unload Forms(intFormsCount)
Loop

[Rozre]

为什么不用窗体数组？