Sub LogStackTrace
Dim jo As JavaObject
Dim stack() As Object = jo.InitializeStatic("java.lang.Thread").RunMethodJO("currentThread", Null).RunMethod("getStackTrace", Null)
For Each st As JavaObject In stack
Log(st.RunMethod("getClassName", Null) & ": " & st.RunMethod("getMethodName", Null))
Next
End Sub