Dim i As Intent
i.Initialize("android.intent.action.SEND", "")
i.SetType("application/zip")
Dim installedPackages As List = pm.QueryIntentActivities(i)
If (installedPackages.Size > 0) Then
For Each package As String In installedPackages
Log(package)
Next
End If