Sub Activity_Create(FirstTime As Boolean)
Log(DateTime.Date(GetFirstInstallTime("anywheresoftware.b4a.designer")))
End Sub
Sub GetFirstInstallTime(Package As String) As Long
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod("getPackageManager")
r.Target = r.RunMethod3("getPackageInfo", Package, "java.lang.String", 0, "java.lang.int")
Return r.GetField("firstInstallTime")
End Sub