Le soluzioni sono due:
1) Togli il pulsante X (controlBox= false)
2) utilizzi questo codice:
codice:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = 1
End Sub

Dimmi se la soluzione di va bene... :sgrat: