FoxPro/Visual FoxPro - ayuda

quisiera si fuese posible que alguien me ayudase a hacer un formulariode bienvenida con un timer pero la codificacion no la encuentro e intentado de todo pero no he podido claro que para foxPro6.0

Prueba esto


LOCAL loPresenta
loPresenta = NEWOBJECT("FormPresenta")
loPresenta.SHOW()
** Presentation screen
FOR ln = 1 TO 30&& Legal Value = 30
INKEY(.1)
ENDFOR
RELEASE loPresenta
loPresenta = NULL
**********************
* Formulario Presenta
**********************
DEFINE CLASS FormPresenta AS FORM
ALWAYSONTOP = .T.
AUTOCENTER = .T.
WIDTH = 700 &&468
HEIGHT = 500 &&319
NAME = "Presenta"
SHOWWINDOW = 2
DESKTOP = .T.
TITLEBAR = 0
BORDERSTYLE = 1
MOUSEPOINTER = 11
ADD OBJECT imgLogo AS IMAGE
PICTURE = "BITMAPS\SPLASH2.BMP"
PICTURE = "Logo Empresa\logo.jpg"
TOP = 0
LEFT = 0
ADD OBJECT Inicilizando as LABEL
caption="Wait ..... "
*************
PROCEDURE INIT
SET CURSOR OFF
THIS.SETALL("MOUSEPOINTER", THIS.MOUSEPOINTER)
ENDPROC
*****************
PROCEDURE DESTROY
SET CURSOR ON
ENDPROC
ENDDEFINE


Suerte

gracias por mandarme la codificacion te lo agradesco pues no lo habia enconrado hasta ahora.