Aqui te tengo un ejemplo, ojala y te sirva.
Rpta = 0
Rpta = messagebox('¿Desea abandonar la aplicación?',4+32+256,'Sistema de Control')
IF Rpta = 6 THEN
CLOSE DATABASES
Quit
ELSE
Return
ENDIF
No olvides agradecer.
[EMAIL="
[email protected]"]
[email protected][/EMAIL]