Dim i As Intent
i.Initialize("", "")
i.SetComponent("com.amazon.mp3.activity.IntentProxyActivity")
i.Action = "com.amazon.mp3.action.EXTERNAL_EVENT"
i.PutExtra("com.amazon.mp3.extra.EXTERNAL_EVENT_TYPE", "com.amazon.mp3.type.SEARCH")
i.putExtra("com.amazon.mp3.extra.SEARCH_TYPE", 1) '0 = Song, 1 = album
i.PutExtra("com.amazon.mp3.extra.SEARCH_STRING", "The Beatles")
StartActivity(i)
Dim In As Intent
Dim pm As PackageManager
In = pm.GetApplicationIntent("com.amazon.mp3")
If In.IsInitialized Then
Sub CheckPackage(p As String) As Boolean
Try
Dim pm As PackageManager
Dim i As Intent = pm.GetApplicationIntent(p)
Return i.IsInitialized
Catch
Return False
End Try
End Sub