Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Public Sub qc_OnQuote(ByVal sender As Object, ByVal args As QuoteEventArgs)
Dim str As String = args.ToString
Dim bidask As String() = str.Split(" ")
MsgBox(bidask(1) & " / " & bidask(2))
Label8.Text = "" & bidask(1) & " / " & bidask(2)
End Sub
Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
Try
Dim syms As String = ComboBox1.Text
Dim sym As String() = syms.Split(",")
Dim qc As QuoteClient = New QuoteClient(******, "*******", "**.***.***.***", ****)
AddHandler qc.OnQuote, AddressOf Me.qc_OnQuote
qc.Connect()
qc.Subscribe(sym(0))
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
The messagebox show the output but the label8 has no output at all