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
>>
>>
If it's not broken, fix it until it is.
My Blog