Sub ResolvableActivity(pIntent As Intent) As Boolean
Dim r As Reflector
r.Target = pIntent
Dim ComponentName As Object
ComponentName = r.RunPublicmethod("resolveActivity", Array As Object(getPackageManager), Array As String("android.content.pm.PackageManager"))
Return (ComponentName <> Null)
End Sub
Sub getPackageManager As Object
Dim context As JavaObject
context.InitializeContext
Return context.RunMethod("getPackageManager", Null)
End Sub