FoxPro/Visual FoxPro - error de ejecutable

al crear mi ejecutable tengo un rpoblema es que se ejecuta y se cierra de inmediato que podra ser este es mi prg inicial

CLOSE DATA
CLEAR
SET TALK OFF
SET SAFETY OFF
_screen.Visible = .F.
DO FORM Mesa_Central
CLOSE ALL
CLEAR ALL
CLEAR EVENTS
QUIT
RETURN

Te falta el READ EVENTS .....

algo asi

SET RESOURCE OFF
_screen.Visible =.f.
ON SHUTDOWN do closeapp
DO FORM MiForma
READ EVENTS

PROCEDURE closeapp
ON SHUTDOWN
SET SYSMENU TO DEFA
_SCREEN.CAPTION="Microsoft Visual FoxPro"
CLEAR EVENTS
CLEAR ALL
SET SYSMENU TO DEFAULT
QUIT
ENDPROC

Suerte

lo incorpore y no pasa nada :-(

CLOSE DATA
CLEAR
SET TALK OFF
SET SAFETY OFF
_screen.Visible = .F.
DO FORM Mesa_Central
READ EVENTS
CLOSE ALL
CLEAR ALL
CLEAR EVENTS
QUIT
RETURN

te asegurastes que la propiedad ShowWindow = 2, osea que este como formulario de nivel superior.