VB.Net代码段-获取函数或子名

Imports System.Reflection

Module Module1
    Sub Main()
        Dim methodName As String = GetMethodName(AddressOf MyFunction)
        Console.WriteLine("Function Name: " & methodName)

        methodName = GetMethodName(AddressOf MySub)
        Console.WriteLine("Sub Name: " & methodName)

        Console.ReadLine()
    End Sub

    Function MyFunction() As Integer
        Return 0
    End Function

    Sub MySub()
        Console.WriteLine("Hello World")
    End Sub

    Function GetMethodName(method As [Delegate]) As String
        Dim methodInfo As MethodInfo = method.Method
        Return methodInfo.Name
    End Function
End Module

Function Name: MyFunction
Sub Name: MySub