Lparameters tcMember Local luValue, lcMember lcMember = "THIS."+tcMember If Type(lcMember)#"U" * name convention: names of object properties must always begin with "O" If Upper(Left(tcMember,1))=="O" And Vartype(Getpem(This,tcMember))=="C" ; AND Left(Getpem(This,tcMember),2)=="<-" Try luValue = Evaluate(Substr(Getpem(This,tcMember),3)) Store luValue To (lcMember) Catch * debug message to the developer using this: Debugout "Error in ", Sys(16), ": The expression of member ", tcMember, ; " could not be evaluated or the result could not be stored." Endtry Endif Endif Return ThisIt works this way: You define a property oBiz in your container and set it's value to "<-expression", the method above will evaluate the expression. So a simple expression could be "<-Createobject('bizclass')".