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)