>LOCAL loName, loForm > >loName = CREATEOBJECT( 'Variable', "John Q. Public" ) >loForm = CREATEOBJECT("TestForm",loName) >loForm.SHOW(1) > >ACTIVATE SCREEN > >?loName.value && This has to be the value typed into the form > >DEFINE CLASS Variable AS CUSTOM > value = '' > > PROCEDURE Init > LPARAMETER tcValue > this.value = tcValue > ENDPROC > >ENDDEFINE > >DEFINE CLASS TestForm AS Form > AUTOCENTER = .T. > WIDTH = 150 > HEIGHT = 74 > Test = "" > > ADD OBJECT txt1 AS TEXTBOX WITH ; > HEIGHT = 22, ; > LEFT = 10, ; > TOP = 10, ; > WIDTH = 130 > > ADD OBJECT cmd1 AS COMMANDBUTTON WITH ; > CAPTION = "Exit", ; > HEIGHT = 22, ; > LEFT = 45, ; > TOP = 40, ; > TERMINATEREAD = .T., ; > WIDTH = 60 > > PROCEDURE INIT > LPARAMETER p1 > > this.test = p1 > THIS.txt1.CONTROLSOURCE = "THISFORM.Test.value" > > ENDPROC > >ENDDEFINE > >