>>>Dim AB As Object >>>Dim qt As Object >>>Dim aDate, aOpen, aHigh, aLow, aClose, aVolume, aOpenInt As Variant >>> >>>Set AB = CreateObject("Broker.Application") >>>Set QT = AB.Stocks(Symbol.Text).Quotations >>> >>>NumQuotes = QT.Retrieve(-1, aDate, aOpen, aHigh, aLow, aClose, aVolume, aOpenInt) >>> >>>List1.Clear >>> >>>For i = 0 To NumQuotes - 1 >>> List1.AddItem (aDate(i) & "," & aOpen(i) & "," & aHigh(i) & "," & aLow(i) & "," & aClose(i) & "," & aVolume(i)) >>>Next >>> >>>>>>
** passing array by reference zero based COMARRAY(ComObject, 10) DIMENTION aArray[10] ComObject.SomeMethod(@aArray) ** passing array by value zero based COMARRAY(ComObject, 0) DIMENTION aArray[10] ComObject.SomeMethod(@aArray) ** passing array by value one based COMARRAY(ComObject, 1) DIMENTION aArray[10] ComObject.SomeMethod(@aArray) ** passing array by reference one based COMARRAY(ComObject, 11) DIMENTION aArray[10] ComObject.SomeMethod(@aArray) *** passing BYTE array by reference zero bazed COMARRAY(ComObject, 1000 + 10) DIMENTION aArray[10] ComObject.SomeMethod(@aArray)