oApp = CREATEOBJECT("testproc") oVar = CREATEOBJECT("testobj") oApp.TestObj(oVar, "nVar") ? oVar.nVar DEFINE CLASS TestProc AS CUSTOM PROCEDURE TestObj PARAMETERS oObj1, cVar oObj1.&cVar = oObj1.&cVar + 1 ENDDEFINE DEFINE CLASS TestObj AS CUSTOM nVar = 0 ENDDEFINEThe TestObj procedure in the TestProc class simply increments the property in the passed object. The object is passed as-is, and the property is passed as a character string.