I am unable to get an object created as a com object to support an array.
What am I doing wrong - or more likely, what is it I don't understand?

Sample 1: Save this code to a prg, add to a project, and build the project as a DLL. Call the dll, e.g., "AComDll"

**** CODE FOR SAMPLE 1 PRG ******
DEFINE CLASS AnObject AS custom OLEPUBLIC
DIMENSION AnArray[3,1]
PROCEDURE AMethod
store 'John' to this.AnArray
ENDPROC
ENDDEFINE
**** END OF CODE ******

Now run these two lines from the command window to create an instance of the object, and to fire the method:

o = createobject('AComDll.AnObject')
o.AMethod()

Use debug's "locals" window, and note that o.AnArray is NOT an array.

Sample 2: Save this code to a prg and execute the PRG

**** CODE FOR SAMPLE 2 PRG ******
clea all
public o
o = createobject('AnObject')
= o.AMethod()

DEFINE CLASS AnObject AS custom
DIMENSION AnArray[3,1]
PROCEDURE AMethod
store 'John' to this.AnArray
ENDPROC
ENDDEFINE
**** END OF CODE ******

Now use debug's "locals" window, and you will see that o.AnArray IS STILL an array.

Any suggestions will be most appreciated!