codice:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub
In questo modo disabiliti il tasto X per chiudere la finestra.