I am continuing to perfect this class. I will post my final version here when done. I am getting real 2-D arrays to work -- aList[1,1], aList[1,2], aList[2,1], aList[2,2], etc.

>Same here.
>
>>I am using VFP 6 SP3. What are you using?
>>
>>>Hmm... Mine has been working fine and I haven't been doing that.
>>>This is the code in the init.
>>>
>>>

DoDefault()
>>>
>>>select abbrev from states order by 1 into array This.aList
>>>
>>>local lnResult
>>>lnResult = 1
>>>if !empty( This.ControlSource )
>>>	lnResult = ascan( This.aList, eval( This.ControlSource ) )
>>>endif
>>>
>>>if lnResult = 0
>>>	local lnLen
>>>	lnLen = alen( This.aList, 1 ) + 1
>>>	dimension This.aList[ lnLen, 1 ]
>>>	This.aList[ lnlen ] = eval( This.ControlSource )
>>>	asort( This.aList )
>>>endif
>>>