Sub Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission = rp.PERMISSION_ACCESS_FINE_LOCATION Then
gmap.MyLocationEnabled = Result
ELSE
' Credit for the following code to DonManfred
rs= Msgbox2("You have not given permission - I can not proceed" ,"Permission Failure","Yes","Cancel","No",Null)
If rs=DialogResponse.POSITIVE Then
StopService(Starter)
Activity.Finish
ExitApplication
Return True ' RETURN TRUE to consume the Event---
End If
End Sub