PRB: REDIMENSION an Array Passed by Reference in DLL Fails

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new project named MyDLL.
2. Add a new program to the project containing the following code:

         DEFINE Class VFPArray As Custom OlePublic
            PROCEDURE GetArray(aRetVal)
               LOCAL x
               FOR x = 1 To 50
                  DIMENSION aRetVal[x]
                  aRetVal[x] = x
               NEXT x
            ENDPROC
         ENDDEFINE
   							

3. Build the project into a COM DLL.
4. Run the following code from Visual FoxPro:

         ox = CreateObject("MyDLL.VFPArray")
         DIMENSION myarray[1]
         ComArray(ox,11)
         ox.GetArray(@myarray)