>SET STEP ON > >oForm = CREATEOBJECT("myForm") >oForm.Show() > >DEFINE CLASS MyForm AS Form > > PROCEDURE Show > > IF This.Height = 50 > ENDIF > > ENDPROC > > PROCEDURE Height_Assign > LPARAMETERS nHeight AS Integer > WAIT WINDOW "Height_Assign called" NOWAIT > ENDPROC > >ENDDEFINE >>