Sub Calculator
Dim Cal As Intent
Dim I As Int
Dim pm As PackageManager
Dim packages As List
Dim Packname As String
Dim Calculatoranwendung As String
Cal.Initialize("", "")
Try
packages = pm.GetInstalledPackages
For I = 0 To packages.Size - 1
Packname = packages.Get(I)
If Packname.Contains("alculator") = True Then
Calculatoranwendung = Packname
Exit
End If
Next
Cal = pm.GetApplicationIntent(Calculatoranwendung)
StartActivity(Cal)
Catch
Msgbox("Calculator not found on System!","Error")
End Try
End Sub