Dim ctxt As JavaObject: ctxt.InitializeContext
Dim jpm As JavaObject = ctxt.RunMethod("getPackageManager", Null)
Dim PackM As PackageManager
Dim count As Long=1
For Each package As String In PackM.GetInstalledPackages
Dim ApplicationInfo As JavaObject = jpm.RunMethod("getApplicationInfo", Array(package, 0))
Log(count & " Nome:" & PackM.GetApplicationLabel(package) & " Package:" & package & " Apk:" & ApplicationInfo.GetField("publicSourceDir") )
count=count+1
Next