rp.CheckAndRequest(rp.PERMISSION_ACCESS_COARSE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
ToastMessageShow("No Coarse permission...", False)
Return
'Else
' ToastMessageShow("Coarse Location Permission Granted",True)
End If
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result=False Then
ToastMessageShow("No Fine permission...", False)
Return
'Else
'ToastMessageShow("Fine Location Permission Granted",True)
End If