GetCurrentMethodName - Retrieving the name of the current method

' Return the name of the method that calls this function.
' The function is useful for logging purposes, for example.
'
' Example:
'    Private Sub Button4_Click(...) Handles Button4.Click
'       MessageBox.Show(GetCurrentMethodName())  ' => Button4_Click
'    End Sub

Function GetCurrentMethodName() As String
    Dim stack As New System.Diagnostics.StackFrame(1)
    Return stack.GetMethod().Name
End Function