Public Class Form1
    Dim WithEvents testInstance As TestInterface

    ''testInstance.Event1発生時に実行される！！
    Sub EventHandler() Handles testInstance.Event1
        MsgBox("The event handler caught the event.")
    End Sub

    Sub Test()
        '  Create an instance of the class.
        Dim T As New ImplementationClass
        ' Assign the class instance to the interface.
        ' Calls to the interface members are 
        ' executed through the class instance.
        testInstance = T
        ' Set a property.
        testInstance.Prop1 = 9
        ' Read the property.
        MsgBox("Prop1 was set to " & testInstance.Prop1)
        '  Test the method and raise an event.
        testInstance.Method1(5) ''testInstance.Method1を実行！！
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Test() ' Test the class.
    End Sub
End Class


Module Module1
    Interface TestInterface
        Property Prop1() As Integer
        Sub Method1(ByVal X As Integer)
        Event Event1()
    End Interface

    Class ImplementationClass
        Implements TestInterface

        Public Event Event1() Implements TestInterface.Event1

        Public Sub Method1(X As Integer) Implements TestInterface.Method1
            MsgBox("The X parameter for Method1 is " & X)
            RaiseEvent Event1() ''Event1()を発生！！

        End Sub

        ' Holds the value of the property.
        Private pval As Integer
        Public Property Prop1 As Integer Implements TestInterface.Prop1
            Get
                Return pval

            End Get
            Set(value As Integer)
                pval = value
            End Set
        End Property
    End Class

End Module

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim snd As New Sender() '←[1]
        snd.Target = Me '←[2]
        snd.TestAction() '←[3]
    End Sub

    Public Function Notified(ByVal msg As String) As Boolean '←[4]
        MessageBox.Show(msg)
        Return True
    End Function
End Class

Public Class Sender '←[5]

    Public Target As Form1 '←[6]

    Public Sub TestAction() '←[7]
        Dim result As Boolean
        result = Target.Notified("Notified by Method Name") '←[8]
        MessageBox.Show(result)
    End Sub

End Class

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim snd As New Sender() '←[1]
        snd.TestAction() '←[3]
    End Sub

    Public Function Notified(ByVal msg As String) As Boolean '←[4]
        MessageBox.Show(msg)
        Return True
    End Function
End Class

Public Class Sender '←[5]
    Public Sub TestAction() '←[7]
        Dim result As Boolean
        result = Form1.Notified("Notified by Method Name") '←[8]
        MessageBox.Show(result)
    End Sub
End Class

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim result As Boolean
        result = Notified("Notified by Method Name") '←[8]
        MessageBox.Show(result)
    End Sub

    Public Function Notified(ByVal msg As String) As Boolean '←[4]
        MessageBox.Show(msg)
        Return True
    End Function
End Class

Public Delegate Function Func1(ByVal msg As String) As Boolean '←[1]

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim snd As New Sender()
        snd.Notify = New Func1(AddressOf Me.Notified) ' ←[2]
        snd.TestAction()
    End Sub

    Public Function Notified(ByVal msg As String) As Boolean
        MessageBox.Show(msg)
        Return True
    End Function
End Class

Public Class Sender '←[3]

    Public Notify As Func1 '←[4]

    Public Sub TestAction()
        Dim result As Boolean
        result = Notify("Notify by Delegate") '←[5] デリゲートによる呼び出し
        MessageBox.Show(result)
    End Sub
End Class