Sub GetInstallerPackageName As String
Dim jo As JavaObject
jo.InitializeContext
jo = jo.RunMethod("getPackageManager", Null)
Dim o As Object = jo.RunMethod("getInstallerPackageName", Array(Application.PackageName))
If o = Null Then Return "N/A" Else Return o
End Sub