Try this code and see how it works:
Protected Overridable Sub OnConnectionEstablished(ByVal e As EventArgs)
If m_SynchronizingObject IsNot Nothing AndAlso m_SynchronizingObject.InvokeRequired Then
Dim Parameters() As Object = {Me, EventArgs.Empty}
If m_SynchronizingObject IsNot Nothing Then
If TypeOf (m_SynchronizingObject) Is System.Windows.Forms.Control AndAlso DirectCast(m_SynchronizingObject, System.Windows.Forms.Control).IsHandleCreated Then
m_SynchronizingObject.BeginInvoke(oced, Parameters)
End If
End If
Else
RaiseEvent ConnectionEstablished(Me, e)
End If
End Sub