http://www.realsoftwareblog.com/2012/07/preserving-stack-trace-when-catching.html

Or basically create a new class that writes where it is created and destroyed to your log file
Create an instance of your class in each method you want to trace (it will go out of scope at the end of the method which will call its destructor)

Das Problem kenne ich. Da habe ich folgendes im Fundus:

Public Function CallStack() as String()
  // returns the signatures of the current CallStack
  // workaround for <feedback://showreport?report_id=14501>
  
  Dim result() As String
  
  Try
    #Pragma BreakOnExceptions OFF
    Raise New RuntimeException
  Catch e As RuntimeException
    Dim stack() As String = e.Stack
    If stack.Ubound >= 2 Then
      // 0 is this Method
      // 1 is requesting Method
      // 2 is first calling Method
      stack.Remove(0)
    End If
    result = stack
  Finally
    #Pragma BreakOnExceptions Default
  End Try

  Return result
End Function

Public Function CalledBy() as String
  // returns the signature of the method that called the current method
  // similar to CurrentMethodName
  // this is a String, not an Object nor Introspection Reference. So IsA queries are not possible on the result
  
  Dim stack() As String  
  stack = CallStack
  
  // 0 is this mehthod
  // 1 is the method that called this
  // 2 is the method that was asked for
  Select Case stack.Ubound 
  Case Is >= 2
    Return stack(2)
  Case 1 
    //this can happen if we are called from the run event of an thread
    Return stack(1) 
  End Select
End Function

Die Exceptions sind außerdem langsam. Man kann sonst nur den Code mit CurrentMethodName dekorieren.

Dan ändere deine Refreshmethode zu

RefreshMethode( Optional currentMethod as String )

Und via Find/Replace ersetze alle Aufrufe mit

RefreshMethode( CurrentMethod )