Public Sub MemoryUsage As String
Dim r As Reflector
Dim Text As String
Dim MaxMemory As Long
Dim FreeMemory As Long
Dim TotalMemory As Long
Dim UsedMemory As Long
Dim TotalFree As Long
r.Target = r.RunStaticMethod("java.lang.Runtime", "getRuntime", Null, Null)
MaxMemory = r.RunMethod("maxMemory")
FreeMemory = r.RunMethod("freeMemory")
TotalMemory = r.RunMethod("totalMemory")
UsedMemory = TotalMemory - FreeMemory
TotalFree = MaxMemory - UsedMemory
Text = " Max Memory = " &NumberFormat2((MaxMemory/(1024*1024)), 1, 2, 2, True) &" MB" _
&CRLF &" Total Free = " &NumberFormat2((TotalFree/(1024*1024)), 1, 2, 2, True) &" MB" _
&CRLF &" Total Memory = " &NumberFormat2((TotalMemory/(1024*1024)), 1, 2, 2, True) &" MB" _
&CRLF &" Used Memory = " &NumberFormat2((UsedMemory/(1024*1024)), 1, 2, 2, True) &" MB" _
&CRLF &" Free Memory = " &NumberFormat2((FreeMemory/(1024*1024)), 1, 2, 2, True) &" MB"
Log(" Max Memory = " & NumberFormat2((MaxMemory / (1024*1024)), 1, 2, 2, True) & " MB")
Log("Total Free = " & NumberFormat2((UsedMemory / (1024*1024)), 1, 2, 2, True) & " MB")
Log("Total Memory = " & NumberFormat2((TotalMemory / (1024*1024)), 1, 2, 2, True) & " MB")
Log(" Used Memory = " & NumberFormat2((UsedMemory / (1024*1024)), 1, 2, 2, True) & " MB")
Log(" Free Memory = " & NumberFormat2((FreeMemory / (1024*1024)), 1, 2, 2, True) & " MB")
Return Text
End Sub