Imports System
 
Public Delegate Sub MagicNumberCallback(ByVal n As Integer)
 
Public Interface ICalc
    ReadOnly Property AppDomainName() As String
    Function add(ByVal a As Integer, ByVal b As Integer) As Integer
    Event MagicNumber As MagicNumberCallback
End Interface
 
Public Class EventShim
    Inherits MarshalByRefObject
 
    Private target As MagicNumberCallback
 
    Public Sub New(ByVal target As MagicNumberCallback)
        Me.target = System.Delegate.Combine(Me.target, target)
    End Sub
 
    Public Sub MagicNumberShim(ByVal n As Integer)
        target.Invoke(n)
    End Sub
 
    Public Shared Function Create(ByVal target As MagicNumberCallback) As _
      MagicNumberCallback
        Dim shim As EventShim = New EventShim(target)
        Return New MagicNumberCallback(AddressOf shim.MagicNumberShim)
    End Function
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist