CloseForm

Private Sub mnuEsci_Click()
'Se l'utente sceglie di cihudere il form dal menu,

'chiamo lo routine Unload del Form

Unload Me
End Sub

Private Sub Form_QueryUnload(Cancela As Integer)
'Chiedo conferma...

Cancel=(Msgbox("Vuoi chiudere questo Form?", vbYesNo) = vbNo)
End Sub