md76, ti ho fatto un esempio di routine, vedi se ti va bene:
Fai un menù nella MDIForm1 con due comandi: mnuFileApri e mnuFileEsci.
Da inserire nel modulo della MDIForm1
codice:
Private Sub mnuFileApri_Click()
    Load Form2
    Load Form1
End Sub
' ------------------------------------
Private Sub mnuFileEsci_Click()
' Ciclo per chiudere tutte le Form:
    Dim yForm As Form
    Dim intDom As Integer
    
    For Each yForm In Forms
        If yForm.Name <> "MDIForm1" Then
                intDom = MsgBox(yForm.Name & "  - Prima di uscire salvare il file ? Clic su OK per effettuare l'operazione," & Chr(13) _
                & "su Annulla per proseguire senza salvare il file.", vbExclamation + vbOKCancel, "... ... ...")
                
                    If intDom = 1 Then
                        ' Vai alla routine salva
                        yForm.WindowState = vbMinimized  'Minimizza la Frm
                    End If
                    If intDom = 2 Then                   'Annulla
                        yForm.WindowState = vbMinimized  'Minimizza la Frm
                    End If
                
                Unload yForm
                Set yForm = Nothing
         End If
    Next yForm
        
        Unload MDIForm1
        Set MDIForm1 = Nothing
End Sub
In questo modo prima di chiedere le Frm le riduce a icona.