German prüfen ob Programm installiert ist

HAllo,

kann ich irgendwie prüfen, ob ein bestimmtes Programm installiert ist (z.B. PrintBot), und falls ja ein erzeugtes PDF direkt damit öffnen?

Vielleicht so:

Sub btnDrucken_click

Dim i As Intent

FileName = ("file:///sdcard/mein.pdf")

i.Initialize(i.ACTION_VIEW, FileName)
i.SetType("application/pdf")
StartActivity(i)

End Sub