Sub MY_POSITION
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
wait for Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
GeoLoc.Initialize("GeoLocation")
GeoLoc.GetLocation
GeoLoc.geoAddress
EditText1.Text = GeoLoc.Address
Lati3 = GeoLoc.Lattitude
longi3 = GeoLoc.Longitude
'Ajoute le Marker
gmap = MapFragment1.GetMap
Marker3 = gmap.AddMarker(Lati3, longi3, "Ma Position")
'Centre la carte et zoome
Dim cp As CameraPosition
cp.Initialize(Lati3, longi3, gmap.CameraPosition.Zoom)
cp.Initialize(Lati3, longi3, 10) 'zoom taille du zoom (de 1 à 15)
gmap.AnimateCamera(cp)
'Ajoute un cercle
Dim co As CircleOptions
co.Initialize
co.Center2(Lati3, longi3).Radius(1000).FillColor(Colors.ARGB(25,8,45,80)).StrokeColor(Colors.Black)
Circle3 = gmapExtra.AddCircle(gmap, co)
Else
ToastMessageShow("Position non trouvée", True)
End If
End Sub