Dim rp As RuntimePermissions
For Each permission As String In Array(rp.PERMISSION_GET_ACCOUNTS,rp.PERMISSION_READ_CONTACTS)
rp.CheckAndRequest(permission)
Wait For B4XPage_PermissionResult (permission As String, Result As Boolean)
If Result = False Then
Log(permission & " denied")
Return
End If
Next