FoxPro/Visual FoxPro - Como hago correr un programa de visual fox en un formulario?

PROCEDURE Ejecutar_exe

LPARAMETERS tcFolder_ini, tcProgram_Name

*<Ejecutar Programa>

* tcFolder_Ini		Carpeta en la que se debe ejecutar el programa

* tcProgram_Name	Nombre + ext del programa que se ejecutará

* -----------------

TRY

	LOCAL loOpenErr as Exception,;

		loShell as Object,;

		lcProgram as String,;

		lcMessge as String

	lcProgram = ADDBS(m.tcFolder_Ini) + tcProgram_Name

	IF FILE(m.lcProgram)

		loShell=CREATEOBJECT("Shell.Application")

		CD &tcFolder_Ini

		loShell.ShellExecute(m.lcProgram, "", ADDBS(m.tcFolder_Ini), "open", 3)

	ELSE

		lcMessage = "No se encuentra el programa "+m.lcProgram

	ENDIF

CATCH TO loOpenErr

	loOpenErr.UserValue = PROGRAM()

	* ShowError(loOpenErr) 	&& rutina muestra el error

FINALLY

	loShell = null

	IF !EMPTY(m.lcMessage)

		MESSAGEBOX(m.lcMessage,0,"Mensaje del Sistema")

	ENDIF

ENDTRY

*</Ejecutar Programa>