Public Class EventListener
    Inherits MarshalByRefObject
 
    Public Delegate Sub RemoteObjectChangedHandler(ByVal sender As Entity, _
      ByVal e As EntityChangedEvent)
 
    Public Event RemoteObjectChanged As RemoteObjectChangedHandler
 
    Public Sub New()
        MyBase.new()
    End Sub
    Public Sub OnRemoteObjectChanged(ByVal sender As Entity, ByVal e As _
      EntityChangedEvent)
        RaiseEvent RemoteObjectChanged(sender, e)
    End Sub
 
    Public Sub call_the_delegates_manually(ByVal sender As Entity, ByVal e As _
      EntityChangedEvent)
        Dim RODH As RemoteObjectChangedHandler
 
        For Each del As System.Delegate In RemoteObjectChanged.GetInvocationList
            Try
                RODH = DirectCast(del, RemoteObjectChangedHandler)
                Call RODH(sender, e)
            Catch ex As Exception
                Console.WriteLine("Exception occured, will remove Delegate")
                RemoteObjectChanged.Remove(RODH)
            End Try
        Next
 
    End Sub
 
End Class

Micke