oStorage=CreateObject('parameterX') oStorage.nVar1=10 oStorage.lVar1=.T. oStorage.cVar1='aaa' oStorage..cVar2='hello' ?oStoage.nVar1 define class ParameterX as custom function This_Access(tcMember) if type('This.' + tcMember) = 'U' This.AddProperty(tcMember) endif return This EndFunc function AddVar(tcMember,tcData) AddProperty(this,tcMember,tcData) return This endfunc EndDefine