Dim obj1 as reflector
Dim ah, fh, gnhs As Long
Dim args(0) As Object
Dim types(0) As String
' Debug.getNativeHeapAllocatedSize
ah = obj1.RunStaticMethod("android.os.Debug", "getNativeHeapAllocatedSize", args, types)
fh = obj1.RunStaticMethod("android.os.Debug","getNativeHeapFreeSize", args, types)
gnhs = obj1.RunStaticMethod("android.os.Debug","getNativeHeapSize", args, types)
Msgbox(ah, "ALLOCATED HEAP")
Msgbox(fh, "FREE HEAP")
Msgbox(gnhs, "getNativeHeapSize")