' 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 SubFunction GetCurrentMethodName() As String Dim stack As New System.Diagnostics.StackFrame(1) Return stack.GetMethod().NameEnd Function