Sub button_click
Dim rp As RuntimePermissions
rp.CheckAndRequest("android.permission.ANSWER_PHONE_CALLS")
End Sub
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = True Then
ToastMessageShow(Permission & "-OK", True)
Else
ToastMessageShow(Permission & "-KO", True)
End If
End Sub