Public Sub Heap_stats
Dim r As Reflector
r.Target = r.RunStaticMethod("java.lang.Runtime", "getRuntime", Null, Null)
Log("Maximum Allocated Memory = " & NumberFormat2(r.RunMethod("maxMemory")/(1024*1024), 1, 4, 4, False) & " MB")
Log("Current Allocated Memory = " & NumberFormat2(r.RunMethod("totalMemory")/(1024*1024), 1, 4, 4, False) & " MB")
Log("Unused Allocated Memory = " & NumberFormat2(r.RunMethod("freeMemory")/(1024*1024), 1, 4, 4, False) & " MB")
Log(".: Used Allocated Memory = " & NumberFormat2((r.RunMethod("totalMemory") - r.RunMethod("freeMemory"))/(1024*1024), 1, 4, 4, False) & " MB")
Log(" ")
End Sub