>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.

So just build a VB wrapper and shelve the problem for now...