Module Module1 Sub Main() Dim hoge As New Hoge AddHandler hoge.Event_, New EventHandler(AddressOf A) AddHandler hoge.Event_, New EventHandler(AddressOf B) AddHandler hoge.Event_, New EventHandler(AddressOf C) hoge.RaiseEvent_() Console.ReadLine() End Sub Sub A() Console.WriteLine("A") End Sub Sub B() Console.WriteLine("B") End Sub Sub C() Console.WriteLine("C") End Sub End Module Delegate Sub EventHandler() Class Hoge Public Event Event_ As EventHandler Public Sub RaiseEvent_() RaiseEvent Event_() End Sub End Class