Dim rp As RuntimePermissions
aaver=phone.SdkVersion
If aaver>22 Then
For Each permission As String In Array(rp.PERMISSION_CALL_PHONE,rp.PERMISSION_ACCESS_FINE_LOCATION,rp.PERMISSION_CAMERA,rp.PERMISSION_READ_EXTERNAL_STORAGE,rp.PERMISSION_WRITE_EXTERNAL_STORAGE,rp.PERMISSION_RECORD_AUDIO,rp.PERMISSION_READ_PHONE_STATE)
rp.CheckAndRequest(permission)
Wait For Activity_PermissionResult (permission As String, Result As Boolean)
If Result = False Then
Log(permission)
ToastMessageShow("not giving..rights - go alone at system settings.. to give", True)
Activity.Finish
'ExitApplication
Return
End If
Next
If File.ExternalWritable=False Then
' OSMDroid requires the use of external storage to cache tiles
' if no external storage is available then the MapView will display no tiles
Log("WARNING NO EXTERNAL STORAGE AVAILABLE")
ToastMessageShow("give rights!", True)
End If