Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
nativeMe.InitializeContext
End If
Dim usedmem As Long = nativeMe.RunMethod("getUsedMemorySize", Null)
Dim totalmem As Long = nativeMe.RunMethod("getTotalMemory", Null)
Dim freemem As Long = nativeMe.RunMethod("getFreeMemory", Null)
Log("UsedMEMORY = "&usedmem)
'Dim c As Class1
'c.Initialize
'StartService(Service1)
'Code1.Init
Timer1.Initialize("Timer1",1000)
Timer1.Enabled=True
End Sub