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