Sub NEW_POSITION 'Geolocalise
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 '(Ligne 63)
MyLatitude = GeoLoc.Lattitude
MyLongitude = GeoLoc.Longitude
Log(GeoLoc.Address)
'Affiche
LblLat.Text = "Lat: " & MyLatitude
LblLong.Text = "Long: " & MyLongitude
LblAdresse.Text = GeoLoc.Address
Else
Activity.Finish
StartActivity(Main) 'show the main activity again
ToastMessageShow("Position non trouvée, Problème de réseau ou GPS", True)
End If
End Sub