'Procedure awaiting callback from host
Public Sub Callback(ByVal message As String) _
Implements IServiceCallback.Callback
If Me.InvokeRequired Then
Me.BeginInvoke(New ObjectToUI(AddressOf UpdateUI), message)
Else
Label1.Text = message
End If
End Sub
Public Delegate Sub ObjectToUI(ByVal o As Object)
Private Sub UpdateUI(ByVal m_message As Object)
Label1.Text = CType(m_message, String)
End Sub