However my code below will only raise 1 getmarketDepthComplete event even with 4 tabs open. Oddly if i just set ba.TabIndex = 0 and run the code if does loop it and raise the event 4 times

- Code: Select all
Public Sub RequestMarketDepth()
Dim TabNumber As Integer
If ba Is Nothing Then
Set ba = New BettingAssistantCom.ComClass
End If
For TabNumber = 0 To 3
ba.TabIndex = TabNumber
ba.getMarketDepth False
Next TabNumber
End Sub
Private Sub ba_getMarketDepthComplete(ByVal MarketDepth As Variant, ByVal resultCode As String)
MsgBox MarketDepth(0).Selection
End Sub