怎么获取当前函数的函数名

如何获取当前函数的函数名
我想获取当前函数的函数名，用来写log
怎么做

------解决方案--------------------
比如:
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim base1 As MethodBase = MethodBase.GetCurrentMethod
Console.WriteLine(base1.Name)
End Sub


输出结果为:
button1_Click