codice:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

End Sub
Questo avviene prima della chiusura