Class Hoge 'Public Event Event_ As EventHandler Public Custom Event Event_ As EventHandler AddHandler(ByVal value As EventHandler) EventList.Insert(0, value) End AddHandler RemoveHandler(ByVal value As EventHandler) EventList.Remove(value) End RemoveHandler RaiseEvent() For Each method As EventHandler In EventList method() Next End RaiseEvent End Event Private EventList As New List(Of EventHandler)() Public Sub RaiseEvent_() RaiseEvent Event_() End Sub