Hi

I have been given this VB6 code as an example:

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

So it would appear they are passing arrays to the Retrieve() function. When try it I still get type mismatch.