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



 
        	 
        	 
 