hope this helps. This is very close to real code, just missing assigment statements for the putright,exp1,etc.
like exp1="09/09/2002"
Create a button with this code in the click event. id=1 is IBM, Id=2 = wmt for example.
Call Tws1.reqMktData(1, "IBM", secType, exp1, strike, PutRight, mult, exch, exch, cur)
Call Tws1.reqMktData(2, "WMT", secType, exp1, strike, PutRight, mult, exch, exch, cur)
In the form put this sub
Private Sub Tws1_tickPrice(ByVal id As Long, ByVal TickType As Long, ByVal price As Double, ByVal canAutoExecute As Long)
Dim mktDataStr As String
If id = 1 And TickType = 4 Then
text1.text = price 'IBM last price
ElseIf id =2 If TickType = 4 Then
text2.text= price 'wmt price
endif
end sub
This Tws1 is the "event sink " which will get any events fired back and you need to capture it.
Good luck