Sub DialNumber(PhoneNum As String)
Dim PC As PhoneCalls
Dim RP As RuntimePermissions
Dim CallReason As String = "In order for this program to dial phone numbers, your permission is required. The next screen will ask for that permission. If you deny permission, then this program can not dial phone numbers for you"
If RP.Check(RP.PERMISSION_CALL_PHONE) = False Then 'if no existing phone call permission
MsgboxAsync(CallReason,"Call Permission") 'explain why this apps needs call permission
Wait For MsgBox_Result (Result As Int)
RP.CheckAndRequest(RP.PERMISSION_CALL_PHONE) 'prompt for permission
Wait For Activity_PermissionResult (Permission As String, AskResult As Boolean)
If AskResult = False Then 'user did not give permission
Return 'abort dial
End If
End If
StartActivity(PC.Call(PhoneNum)) 'dial number
End Sub