Private Sub CloseAll()
' ' ----------------------------- ' ' Close all child forms ' ' ----------------------------- ' ' Turn on error handling On Error Resume Next ' ' Reset the Err object Err = 0 ' ' Close all the child forms Do Until Err Unload MDIForm1.ActiveForm Loop End Sub |