Programa inicio

Hola javier aquí de nuevo mira
Solo le cambi el createobject
Por el do form como me mencionaste y creo que algo estoy haciendo mal o me falta algo
Aquí esta el código que me enviaste y lo que le cambie
ON SHUTDOWN CloseApplication()
** Se define la Ruta del Proyecto
Local lcDefaultPath
If _vfp.StartMode = 0 And ;
Type("_vfp.ActiveProject")=="O"
lcDefaultPath = _vfp.ActiveProject.HomeDir
Set Path To (Addbs("c:\Radio Formula")+"VCX") Additive
Else
*-Ejecuta por este camino cuando se trata de un ejecutable
lcDefaultPath = Sys(5)+Sys(2003)
SET PATH TO (ADDBS(lcDefaultPath )+"SCX") Additive
Set Path To (Addbs(lcDefaultPath )+"VCX") Additive
Set Path To (Addbs(lcDefaultPath )+"REPORTES") Additive
Endif
Set Path To (Addbs(lcDefaultPath )+"Images") Additive
Set Default To (lcDefaultPath )
*------------------------------------------------------------------------------------------------------------------
*-El comando "STARTMODE devuelve un valor numérico que indica como se ha iniciado una instancia de Visual FoxPro.
*-Es de sólo lectura en tiempo de ejecución y los valores que devuelve son :
*-0 Se inició una versión de programación de Visual FoxPro en una sesión interactiva.
*-1 Visual FoxPro se inició como un objeto Application. Por ejemplo, el siguiente comando crea una instancia de
* Visual FoxPro como un objeto Application: "oMyObject = CREATEOBJECT('VisualFoxPro.Application')"
*-2 Visual FoxPro se inició como un servidor de Automatización .exe fuera de proceso.
*-3 Visual FoxPro se inició como un servidor de Automatización .dll en proceso.
*-4 Visual FoxPro se inició como un archivo .app o .exe que se puede distribuir.
*-5 Visual FoxPro se inició como un servidor de automatización .dll en proceso para su uso con varios subprocesos.
*------------------------------------------------------------------------------------------------------------------
*------------------------------------------------------------------------------------------------------------------
*-La propiedad "ACTIVEPROJECT" contiene una referencia al objeto Project para la ventana del Administrador de
*-proyectos activa actualmente. Es de sólo lectura en tiempo de diseño y en tiempo de ejecución.
*------------------------------------------------------------------------------------------------------------------
*------------------------------------------------------------------------------------------------------------------
*-La propiedad "HOMEDIR" especifica el directorio principal del proyecto. El valor predeterminado es el directorio
*-en que está ubicado el archivo de proyecto (.pjx).
*------------------------------------------------------------------------------------------------------------------
*------------------------------------------------------------------------------------------------------------------
*-La funcion "ADDBS" agrega una barra invertida (si fuera necesario) a una expresión de ruta de acceso.
*------------------------------------------------------------------------------------------------------------------
*------------------------------------------------------------------------------------------------------------------
*-La funcion "SYS(2003)" devuelve el nombre del directorio actual de la unidad o volumen predeterminados.
*-La funcion "SYS (5)" devuelve la unidad predeterminada actual de Visual FoxPro.
*-El comando "SET PATH TO especifica una ruta de acceso para buscar archivos, con el "ADDITIVE" permite que la
*-Busqueda sea en varias caminos.-
*------------------------------------------------------------------------------------------------------------------
*------------------------------------------------------------------------------------------------------------------
*-El comando "STARTMODE devuelve un valor numérico que indica como se ha iniciado una instancia de Visual FoxPro.
*-Es de sólo lectura en tiempo de ejecución y los valores que devuelve son :
*-0 Se inició una versión de programación de Visual FoxPro en una sesión interactiva.
*-1 Visual FoxPro se inició como un objeto Application. Por ejemplo, el siguiente comando crea una instancia de
* Visual FoxPro como un objeto Application: "oMyObject = CREATEOBJECT('VisualFoxPro.Application')"
*-2 Visual FoxPro se inició como un servidor de Automatización .exe fuera de proceso.
*-3 Visual FoxPro se inició como un servidor de Automatización .dll en proceso.
*-4 Visual FoxPro se inició como un archivo .app o .exe que se puede distribuir.
*-5 Visual FoxPro se inició como un servidor de automatización .dll en proceso para su uso con varios subprocesos.
*------------------------------------------------------------------------------------------------------------------
*------------------------------------------------------------------------------------------------------------------
*-La propiedad "ACTIVEPROJECT" contiene una referencia al objeto Project para la ventana del Administrador de
*-proyectos activa actualmente. Es de sólo lectura en tiempo de diseño y en tiempo de ejecución.
*------------------------------------------------------------------------------------------------------------------
*------------------------------------------------------------------------------------------------------------------
*-La propiedad "HOMEDIR" especifica el directorio principal del proyecto. El valor predeterminado es el directorio
*-en que está ubicado el archivo de proyecto (.pjx).
*------------------------------------------------------------------------------------------------------------------
*------------------------------------------------------------------------------------------------------------------
*-La funcion "ADDBS" agrega una barra invertida (si fuera necesario) a una expresión de ruta de acceso.
*------------------------------------------------------------------------------------------------------------------
*------------------------------------------------------------------------------------------------------------------
*-La funcion "SYS(2003)" devuelve el nombre del directorio actual de la unidad o volumen predeterminados.
*-La funcion "SYS (5)" devuelve la unidad predeterminada actual de Visual FoxPro.
*-El comando "SET PATH TO especifica una ruta de acceso para buscar archivos, con el "ADDITIVE" permite que la
*-Busqueda sea en varias caminos.-
*------------------------------------------------------------------------------------------------------------------
?
*-Seteo general del sistema----------------------------------------------------------------------------------------
LOCAL lcMensaje , lcTitulo , lLogoVis , lnCantReg, lcRuta
*-- Variables
* lcMensaje -> Mensaje del cuadro de diálogo.
* lcTitulo -> Título del cuadro de diálogo.
* lLogoVis -> Muestra el logo de la empresa si tiene una ruta de la imagen ingresada.
* lnCantReg -> Cantidad de registros.
*--
lLogoVis =...