gistfile1.bas

#Region "MyEventイベント"
    Dim MyEventEventHandlers As New List(Of EventHandler(Of EventArgs))
    Public Custom Event MyEvent As EventHandler(Of EventArgs)
        AddHandler(value As EventHandler(Of EventArgs))
            MyEventEventHandlers.Add(value)
        End AddHandler
        RemoveHandler(value As EventHandler(Of EventArgs))
            MyEventEventHandlers.remove(value)
        End RemoveHandler
        RaiseEvent(sender As Object, e As EventArgs)
            For Each h In MyEventEventHandlers
                h(Me, e)
            Next
        End RaiseEvent
    End Event

    Private _MyEventEvent As Notificator(Of EventArgs)
    Public Property MyEventEventNotificator() As Notificator(Of EventArgs)
        Get
            If _MyEventEvent Is Nothing Then
                _MyEventEvent = New Notificator(Of EventArgs)()
            End If
            Return _MyEventEvent
        End Get
        Set(ByVal value As Notificator(Of EventArgs))
            _MyEventEvent = value
        End Set
    End Property

    Protected Sub OnMyEvent(ByVal e As EventArgs)
        For Each h In MyEventEventHandlers
            h(Me, e)
        Next
        MyEventEventNotificator.Raise(e)
    End Sub
#End Region