FoxPro/Visual FoxPro - Problemas boton con formulario

quetal como estas, necesito una ayudita con mi formulario.

Saben quiero ejecutar un boton que modifica los datos de una persona, pero antes de modificar lo que hago es:

primero al hacer clic en el boton modificar me aparece un formulario hecho con codigo que dice:

Introdusca el Codigo:_________
<aceptar>

bueno es algo parecido, mi codigo del boton es:
-----------------------------------------------
frmMyForm = CREATEOBJECT('Form') && CREA LA FORMA
WITH frmMyForm
.Closable = .t.
.WIDTH = 300
.Height = 150
.AUTOCENTER =.T.
.addobject('te','label')
.te.visible=.t.
.te.Top = 53
.te.Left = 70
.te.caption="Ingrese el Codigo:"
.addobject('txtdato','textbox')
.txtdato.visible=.t.
.txtdato.top=50
.txtdato.left=180
.txtdato.maxlength=15
.txtdato.name="txtmodifica"
.addobject ('cmdaceptar','commandbutton')
.cmdaceptar.visible=.t.
.cmdaceptar.top=107
.cmdaceptar.left=201
.cmdaceptar.height=26
.cmdaceptar.width=71
.cmdaceptar.caption="\<Aceptar"
.cmdaceptar.cancel=.t.
ENDWITH
frmMyForm.SHOW && DESPLEGA LA FORMA
READ EVENTS && EMPIEZA EL PROCESO DE
------------------------------------------------------------------
Todo asta aqui bien con el entorno grafico de botones, pero lo que quiero hacer es cuando coloque el codigo de la persona que quiero modificar y luego <aceptar>,es que busque el codigo y todos los datos, luego aparescan en el formulario principal donde ya esta todo realizado con las herramientas para crear botones,label, text, etc....

mi otro codigo que busca y lo coloca en el formulario es este.
-----------------------------------------------------------------------------

USE c:\seguros\datos\companias.DBF
LOCATE FOR (cod_comp)=(thisform.txtcodcompania.value)
IF found()then
txtcodcompania.value=companias.txtcompania
thisform.txtcompania.Value=companias.compania
thisform.txtdireccion.value=companias.direccion
thisform.txttelefono.value=companias.telefono
thisform.txtnit.value=companias.ruc
thisform.txtemail.value=companias.correo
endif
CLOSE DATABASES
-------------------------------------------------------------------------------
COMO PUEDO HUNIR ESTE CODIGO DESPUES DE CLIC EN <aceptar> AL FORMULARIO??
O ENDONDE TENGO QUE PONERLO???

Una pregunta, por que no tienes tu formulario hecho en el diseñador de formularios?

Sabes no utilizo otros formulario, para evitar la mayorcantidad de formularios en un proyecto.

el proceso que realizo es, primero realizar el formato en un formulario con label, con text, con boton. pero en la opcion que tengo que es modificar primero quiero que salga un mensaje que diga insertar el codigo a modificar, y luego todos los datos aparescan en el formulario normal que tengo. Y asi evitar la mayor cantidad de formularios posibles.

No veo la necesidad de evitar los formularios. Que deseas ahorrar?

si crees que no afecta en nada el estar creando formularios para cualquier aplicacion que haga.

como hago que de un formulario y otro erede los datos para que el otro tenga los datos introducidos.

Ya mas antes esta planteado lo que quiero hacer, haber si puedes ayudarme?
y me das un solucion. y no mas preguntas.!!!!

PUBLIC oform1

oform1=NEWOBJECT("frmMyForm")
oform1.Show
RETURN

DEFINE CLASS frmMyForm as Form
*frmMyForm = CREATEOBJECT('Form') && CREA LA FORMA
*WITH frmMyForm
Closable = .t.
WIDTH = 300
Height = 150
AUTOCENTER =.T.

ADD OBJECT te as label
te.visible=.t.
te.Top = 53
te.Left = 70
te.caption="Ingrese el Codigo:"

ADD object txtdato as textbox
txtdato.visible=.t.
txtdato.top=50
txtdato.left=180
txtdato.maxlength=15
txtdato.name="txtmodifica"

ADD object cmdaceptar AS commandbutton
cmdaceptar.visible=.t.
cmdaceptar.top=107
cmdaceptar.left=201
cmdaceptar.height=26
cmdaceptar.width=71
cmdaceptar.caption="\<Aceptar"
cmdaceptar.cancel=.t.

PROCEDURE cmdaceptar.Click
=MESSAGEBOX('hola mundo')
ENDPROC

*frmMyForm.SHOW && DESPLEGA LA FORMA
*READ EVENTS && EMPIEZA EL PROCESO DE
ENDDEFINE