Option Strict On

Imports System

Public Module Module1

    Public Sub Main()

        'Create a new instance of the Foo class

        Dim f As Foo = New Foo()

​

        'Bind the BarChanged and FooChanged events to the f_ChainedEvent method

        AddHandler f.BarChanged, AddressOf f_ChainedEvent

        AddHandler f.FooChanged, AddressOf f_ChainedEvent

    End Sub

    Public Sub f_ChainedEvent(ByVal sender As Object, ByVal e As EventArgs)

        'This will now execute when BarChanged or FooChanged is invoked

    End Sub

End Module

Public Class Foo

    Public Event FooChanged(ByVal sender As Object, ByVal e As EventArgs)

    Public Event BarChanged(ByVal sender As Object, ByVal e As EventArgs)

End Class