I have the following ActiveX Executable written in VB6
' Sub GetPrices(WNum As Long, OpenPrices() As Single, HighPrices() As Single,
' LowPrices() As Single, ClosePrices() As Single, Volumes() As Long, Dates() As
' Long, NumberOfPricesToGet As Long)
' Fills provided arrays with stock history...