Sub Activity_Create(FirstTime As Boolean)
rp.CheckAndRequest(rp.PERMISSION_READ_CONTACTS)
wait for Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
' <Do something>
Else
Log("Permission denied")
Return
End If
End Sub