Sub LogThreadName(messageObj As Object)
Dim message As String = messageObj
Dim r As Reflector
r.Target = r.RunStaticMethod("java.lang.Thread", "currentThread", Null, Null)
Log("Mess: " & message)
Log("Calling Thread Name: " & r.RunMethod("getName"))
End Sub