Dim Pm As PackageManager
Dim Inte As Intent
Dim Packages As List
Dim st As String
Packages = Pm.GetInstalledPackages
For i = 0 To Packages.size - 1
st=Packages.Get(i)
If st.Contains("calc") =True Then
Inte=Pm.GetApplicationIntent(st)
If Inte.IsInitialized Then StartActivity(Inte)
Exit
End If
Next