* 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