> ******************************************************************************* > PROCEDURE InitializeObject(ObjectName) > > IF PEMSTATUS(THIS,ObjectName,5) > THIS.ObjectName = NULL > ELSE > ADDPROPERTY(THIS,ObjectName) > ENDIF > > ENDPROC >If this is a class definition that will work no mater at what level is your class. That property will be available in all subclasses also. If you want to use that property outside of that class you must use it that way:
*** Lets say that class instance is named MyClass1 in the form: thisform.MyClass1.ObjectName.DoSomething && If ObjectName is object