怎样关闭所有的MDI子窗体啊

[kylinhome]

怎样关闭所有的MDI子窗体啊

[daisy8675]

Private Sub mnuCloseAll_Click()
　　'Screen.MousePointer = vbHourglass
　　Do While Not (Me.ActiveForm Is Nothing)
　　　　Unload Me.ActiveForm
　　Loop
　　'Screen.MousePointer = vbDefault
End Sub

[tztz520]

Private Sub aaa_Click()
Do While Not Me.ActiveForm Is Nothing
Unload Me.ActiveForm
Loop
End Sub

[zhzhq800204]

if Me.ActiveForm Is Nothing then
Unload Me.ActiveForm
endif

[TaoHuang]

Do While Not Me.ActiveForm Is Nothing
Unload Me.ActiveForm
Loop

[wenhongL]

up

[Gujianda]

呵呵！都很热心！