>Hi all!
>I have an object based on class TextBox. I create another object from my own class based on the same TextBox class. And I need to copy all user-changed or user-defined properties from the first object to my object. Does anybody knows the way I can do this ?

nMembers = amembers(aPEM,oObjectName,1)
	\*	Properties :
	\*--------------------------------------------------------------------------------------------------------------------------
For ix = 1 to nMembers
  If aPEM[ix,2]="Property"
    If aPEM[ix,1] = "VALUE"  ;
        and pemstatus(oObjectName, "controlsource", 5) ;
        and type(getpem(oObjectName,"controlsource")) = "G" && Handle general specially
      If pemstatus(oObjectName, aPEM[ix,1], 5) ;
          and !pemstatus(oObjectName, aPEM[ix,1], 2) ;
          and pemstatus(oObjectName, aPEM[ix,1], 0)
		\*	<<padr(aPEM[ix,1],20," ")>>(General)
      Endif
    Else
      If pemstatus(oObjectName, aPEM[ix,1], 5) ;
          and !pemstatus(oObjectName, aPEM[ix,1], 2) ;
          and pemstatus(oObjectName, aPEM[ix,1], 0)
		\*	<<padr(aPEM[ix,1],20," ")>>
		\\ <<getpem(oObjectName,aPEM[ix,1])>>
        If pemstatus(oObjectName,"ReadExpression",5)
          cExpr = oObjectName.readexpression(aPEM[ix,1])
          If !empty(cExpr)
		\\ ( <<cExpr>> )
          Endif
        Endif
      Endif
    Endif
  Endif
Endfor

Cetin