Arrivo tardi!!!! Accidenti..:-D
Comunque ti conviene creare una funzione esterna da richiamare nella sub Form_close perchè immettendo direttamente quel codice in questa sub alle volt può causare problemi tipo doppi messagge che si aprono o roba varia...
Cioè:
PRIVATE FUNCTION chiudi()
IF Message.Question("Chiudi?", "si", "no") = 2 THEN STOP EVENT
END
PUBLIC SUB From_Close()
chiudi()
END