I believe he used Pemstatus and you used TYPE. Both can be used and I doubt there is any noticeable performance difference.

>Your code is identical to mine, except for the Addvar function which I added since I actually needed the Addproperty method in one special case. Since Addproperty was overridden and not available, I added the Addvar function as a replacement. But I admit that I only very rarely use the Addvar function.
>
>>What about simpler version below.
>>

>>DEFINE CLASS ParameterX AS Custom
>>	FUNCTION This_Access(tcMember)
>>		IF NOT PEMSTATUS(This, tcMember, 5)
>>			This.ADDPROPERTY(tcMember, NULL)
>>		ENDIF	
>>		RETURN This
>>	ENDFUNC
>>ENDDEFINE
>>

>>