Public Module Module1

    Public Delegate Sub MyDelegate(ByVal x As Integer, ByVal y As Integer)

        Dim res As Integer

        Sub Main()

            Dim objDelegate As New MyDelegate(AddressOf Add)

            Add(54,27)

            objDelegate(54,27)

            Subtract(54,27)

            objDelegate = New MyDelegate(AddressOf Subtract)

            objDelegate(54,27)

            Multiply(54,27)

                objDelegate = New MyDelegate(AddressOf Multiply)

                objDelegate(54,27)

            Divide(54,27)

            objDelegate = New MyDelegate(AddressOf Divide)

            objDelegate(54,27)

            Dim objAll As MyDelegate

            objAll  = MyDelegate.Combine(New MyDelegate(AddressOf Add), New MyDelegate(AddressOf Subtract), New MyDelegate(AddressOf Multiply), New MyDelegate(AddressOf Divide))

            objAll.DynamicInvoke("Give me all the functions")

        End sub

            Sub Add(ByVal x As Integer, ByVal y As Integer)

                res = x+y

            System.Console.WriteLine("Sum equals " + res.ToString())

            End Sub

            Sub Subtract(ByVal x As Integer, ByVal y As Integer)

                res=x-y

            System.Console.WriteLine("Difference equals " + res.ToString())

            End Sub

            Sub Multiply(ByVal x As Integer, ByVal y As Integer)

                res=x*y

            System.Console.WriteLine("Multiplication result is " + res.ToString())

                End Sub

            Sub Divide(ByVal x As Integer, ByVal y As Integer)

                res=x/y

            System.Console.WriteLine("Division result is " +res.ToString())

            End Sub

​

​

End Module