Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_CALENDAR)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
'ok to read calendar
Else
ToastMessageShow("No read calendar permission...", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_CALENDAR)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
'ok to write to calendar
Else
ToastMessageShow("No write calendar permission...", True)
End If