Android Question Get my own app info with code

    Dim pm AsPackageManager

    VersionLabel.Text=(pm.GetVersionName("developer.appname")) 'check GetVersionName as well

Sub Process_Globals
  Dim ActMan As JavaObject
End Sub
Sub Activity_Create(FirstTime As Boolean)
  Dim R As Reflector
  R.Target=R.GetContext
  'Get Activity Manager Object
  ActMan = R.RunMethod2("getSystemService","activity","java.lang.String")
  Dim TaskInfo As JavaObject = ActMan.RunMethod("getRunningTasks",Array As Object(1))
  Dim CompInfo As JavaObject = TaskInfo.RunMethodJO("get",Array As Object(0)).GetField("topActivity")
  Dim PackageName As String = CompInfo.RunMethod("getPackageName",Null)
  Log(PackageName)
End Sub