Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION )
wait for Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("SI permesso -> PERMISSION_ACCESS_FINE_LOCATION")
Else
Log("NO permesso -> PERMISSION_ACCESS_FINE_LOCATION")
End If