Unload all forms upon closing MDI form

[ahhuang]

i have a MDI form and some individual forms(not child).
how do i code in the way that when i click to close/unload MDI form, all other opened forms all also closed.
Thank you

 

[HardcoreTechnoHead]

In the form_unload event of the MDI form, loop through all of you open forms and close them.

 

[merlinx]

Also do not use End in your code to exit the application, this will close down with out going through your unload routine.

 

[jollypathak]

'Add following code to the MDIForm_Unload event
'This code unloads all forms in "Forms" collection of VB.

Private Sub MDIForm_Unload(Cancel As Integer)
Dim frm As Form

For Each frm In Forms
'Unload each form but not the MDI until
'all others are unloaded.
If frm.Name <> Me.Name Then
Unload frm
Set frm = Nothing
End If
Next frm

'Now set the MDI form to nothing.
Set frmMDI = Nothing

End Sub