FoxPro/Visual FoxPro - porfa ayuda

estoy generando el ejecutable de mi aplicacion pero cuando lo ejecuto se habre y cierra enseguida que pasa ayuda con esto.

Ya revisaste la propiedad en el form WindowState=2
(Como de Nivel Superior)

Solo para probar: Quítale el "_Screen.Visible=OFF", a ver si te pasa el mismo problema..

Suerte►

esa instruccion ya se la quite pero igual se me cierra el programa inmediatamente

este es el codigo de mi programa principal:

set default to c:\interventoria
close database all
public tabla1,indice1,indice2,titulo,tit1,tit2,Tit3,m_tipo,identifiw,valorw,saldow,concepw,abonow
public fechaw,fechaabow,nombrew,T

Tabla1=''
Indice1=''
Indice2=''
Titulo=''
Tit1=''
Tit2=''
Tit3=''
m_tipo=0
identifiw=''
valorw=0
abonow=0
saldow=0
fechaw=(' / / ')
fechaabow=(' / / ')
concepw=''
nombrew=''
modo=0
T=0
Set Path To Interventoria
Set Procedure To Rutinas
DO Inicio
Do Form Clave && formulario principal

tenes que poner despues de

Do Form Clave

READ EVENTS

Enrique nada ya lo hice igual se me cierra automaticamente el programa que sucede. ayuda porfa

Con tu mismo codigo te voy a pasar un ejemplo terminado....al rato...

Suerte►

Ojala funcione por que ya he hecho de todo pero igual se me cierra

que tenes en el INICIO.PRG?

Este es el segundo prg
Procedure Inicio
Modify Windows Screen Fill File Fondo.GIF icon file Tra.Ico NoFloat NoGrow ;
Title "Interventoria del Simit Visiontech Colombia S.A."
Zoom Windows Screen Max
set date ansi
set talk off
set confirm off
set safety off
set echo off
set delete on
set escape off
Set Default To SYS(2003)
*set sysmenu to
Set AutoSave On
Set Bell Off
Set Century On
Set Confirm On
Set Color To
Set Decimal To 0
Set Delete On
Set Device To Screen
Set Escape Off
Set Exclusive Off
Set Exact On
Set Fixed On
Set MultiLocks On
Set Near On
Set Notify Off
Set Print Off

return
function abrirtabla(ntabla,nindice,modo)
if !used(ntabla)
if modo=0
use(ntabla)in 0 exclusive
else
use(ntabla)in 0 shared
endif
select(ntabla)
if !empty(nindice)
set order to tag(nindice)
endif
else
select(ntabla)
if !empty(nindice)
set order to tag(nindice)
endif
endif
return

&& ya al final:

DO Inicio
Do Form Clave && formulario principal

Read Events
Clear Events

verifica en el form la propiedad WindowType=1-Modal

Claro que esta activada en 1 Modal.
del formulario principal Form Clave

Oscar, en principio no veo nada incorrecto; ahora.... pusiste al final del programa principal READ EVENTS ?

ya coloque al final
read events

lo unico que puedo hacer es que me mandes todos los fuentes (prg,form,dbf,etc) a mi direccion de correo y mañana te respondo.