* myForm.PRG
PRIVATE frmForm
frmForm=CREATEOBJECT('subForm')
frmForm.Show()
READ EVENTS

DEFINE CLASS subForm AS FORM
CAPTION=[Form name needs to be public]
ADD OBJECT text1 AS textbox
text1.value=[Hello world]

PROCEDURE queryunload
  this.release
ENDPROC
ENDDEFINE