Close all MDI Children Simply

Close all MDI Children Simply

This code allows you to close all the MDI child forms in an MDI form at once. First, create a menu item in the MDI form, then paste in this code:

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

Once the user clicks on that menu item, the MDI child forms will close.


Share the Post: