Ciao jigen80,
ad integrazione di quanto ti ha suggerito kalosjo, potresti fare così:
codice:
Public Sub ChiudiModAttivo()
    On Error GoTo ErrHandler
    
    Dim Frm As Form
    
    For Each Frm In Forms
       If Frm.Name <> "MDIFrm" And Frm.Name <> "FrmImmag" Then
            Unload Frm
            Set Frm = Nothing
        End If
    Next
    

ErrHandler:
    If Err.Number <> 0 Then
        MsgBox "Errore: " & Err.Number & " " & Err.Description & "." & Chr(13) _
        & "Errore nella procedura.", vbCritical, "...."
        Err.Clear
        Exit Sub
    End If

End Sub
Come vedi in questo modo Non vengono chiusi due Frm "MDIFrm" ed il
"FrmImmag" che nel caso specifico fa da sfondo al programma.
La routine la richiami cosi: Call ChiudiModAttivo .