Kevin, try it this way:

DIMENSION aReports[1]
= COMARRAY(oDll,11)
nTotReports = oDll.GetReportInfo(@aReports)

>This is kind of lengthy, but I'm not sure how to explain it.
>
>I have a report viewing application I created to display Crystal Reports.
>
>All my other apps call into it, via a COM DLL, to display their reports.
>This DLL is used by both the viewer application and the applications
>that call into the viewer. It all works great!
>
>I wanted to provide a function in the DLL to return information from the
>report viewer about what reports are currently displayed in the viewer.
>
>I know that public variables are shared amongst all instances of a COM DLL,
>so I want to take advantage of this to pass info back to the calling
>applications.
>
>Since all the applications using the DLL are in different threads, I figured
>I'd use a public array, with each element in the array holding a reference
>to an object I created, called 'oReportObj'.
>
>These objects would simply be abstract objects with properties about each
>report currently open.
>
>In the Init I have:
>
>

HIDDEN PROCEDURE Init
>
>  WITH This
>
>    ** When the first instance of the DLL inits, this variable
>    ** array will be created. ALl other instances should be able
>    ** to 'see' this variable
>    IF TYPE("aReports")	= "U"
>      PUBLIC aReports[1]
>      aReports = NULL
>    ENDIF
>
>  ENDWITH
>
>ENDPROC

>
>Then I have a method called AddReport. Inside the viewer, each time a report is displayed,
>I call AddReport in the DLL, which instantiates an instance of oReportObj, sets the properties to
>info about the report, and store the object to an element in the public array created in
>INIT:
>

>PROCEDURE AddReport(sAppTitle, sReportTitle, sReportFile, aTables) AS Integer
>
>  LOCAL iElement, iTemp
>  iElement = 0
>
>  WITH This
>
>    oReportObj = CREATEOBJECT("ReportInfo")
>
>    oReportObj.sReportId = SYS(2015)
>    oReportObj.sAppTitle = sAppTitle
>    oReportObj.sReportTitle = sReportTitle
>    oReportObj.sReportFile = sReportFile
>
>    =ACOPY(aTables, oReportObj.aTables)
>
>    FOR iTemp = 1 TO ALEN(aReports, 1)
>      IF VARTYPE(aReports[iTemp ]) # "O"
>        iElement = iTemp
>      ENDIF
>    ENDFOR
>
>    IF iElement = 0
>      iElement = ALEN(aReports, 1) + 1
>      DIMENSION aReports[iElement]
>    ENDIF
>
>    aReports[iElement] = oReportObj
>			
>    RETURN iElement
>
>  ENDWITH
>
>ENDPROC
>

>
>Then, any application can instantiate it's own copy of the DLL and call GetReportInfo
>to fill any array with objects about the reports which are open in the viewer:
>
>

>DIMENSION aReports[1]
>nTotReports = oDll.GetReportInfo(@aReports)
>

>This allows the calling application to see information about reports currently
>open in the report viewer. Here's GetReportinfo:
>
>

>PROCEDURE GetReportInfo(aArray) AS Variant
>
>  LOCAL iRetVal
>  iRetVal = ALEN(aReports)
>		
>  ** aReports is public, and should be available to any application
>  ** which instantiates this DLL
>  =ACOPY(aReports, aArray)
>		
>  RETURN iRetVal
>
>ENDPROC
>

>
>And my ReportObj is:
>

>DEFINE CLASS ReportInfo AS Session OLEPUBLIC
>
>  sReportId = ""    && Unique report Id
>  sAppTitle = ""    && Caption to appear on the window the report is in
>  sReportTitle = "" && Caption to appear on the tab
>  sReportFile = ""  && Full path and name of the report file
>	
>  DIMENSION aTables[1] && Array of table information
>
>ENDDEFINE
>

>
>Ok now the problem. When I call the GetReportInfo function, the array I pass
>has one element, which is NULL.
>
>I have used low-level file functions in the DLL to check the values during
>execution, and in the AddReport when I store the report to the array, it
>IS an object.
>
>From the other application, when I call GetReportInfo, the array has NULL.
>
>Can anyone shed some light on this?
>
>Thanks