loForm = CREATE("TestForm", "John Q. Public") &&Not by refereence
loForm.SHOW(1)
wait window loForm.cReturn
loForm.Release()

DEFINE CLASS TestForm AS Form
  cReturn = ""

  PROCEDURE INIT
    LPARAMETER p1
    this.cReturn = p1
    this.txt1.controlsource = "thisform.cReturn"
  ENDPROC

  proc QueryUnload
     this.hide()
     nodefault
  endproc
  ADD OBJECT txt1 AS TextBox
ENDDEFINE