如何将函数传递给函数？是VB2010中的仿函数/函数对象吗？

Module Module1

    Delegate Function MyDelegate(ByVal x As Integer) As Integer

    Function Add(ByVal x As Integer, ByVal y As Integer) As Integer
        Return x + y
    End Function

    Function Multiply(ByVal x As Integer, ByVal y As Integer) As Integer
        Return x * y
    End Function

    Function Calculate(ByVal x As Integer, ByVal y As Integer, ByVal del As MyDelegate) As Integer
        Return del(x, y)
    End Function

    Sub Main()
        Dim result1 As Integer = Calculate(2, 3, AddressOf Add)
        Dim result2 As Integer = Calculate(2, 3, AddressOf Multiply)
        Console.WriteLine("Add: " & result1)
        Console.WriteLine("Multiply: " & result2)
        Console.ReadLine()
    End Sub

End Module