Private Sub FindMyLocationButton_Click
	fusedLocationProvider1.Initialize("fusedLocationProvider1")
	fusedLocationProvider1.Connect
End Sub

Sub FusedLocationProvider1_ConnectionSuccess
	Private lastKnownLocation As Location = fusedLocationProvider1.GetLastKnownLocation
	If lastKnownLocation.IsInitialized Then
		Private userMarkerDrawable As Int
		package = reflector.GetStaticField("anywheresoftware.b4a.BA", "packageName")
		userMarkerDrawable = reflector.GetStaticField(package & ".R$drawable", "ic_user_marker")
		userMarker = NeshanMapSdk1.addMarker(userMarkerDrawable,25,lastKnownLocation.Latitude,lastKnownLocation.Longitude)
		NeshanMapSdk1.moveCamera(lastKnownLocation.Latitude,lastKnownLocation.Longitude,0.5)
	Else
		getLocationSettings
	End If
End Sub

Sub getLocationSettings
	Private locationSettingsRequestBuilder As LocationSettingsRequestBuilder
	locationSettingsRequestBuilder.Initialize
	fusedLocationProvider1.CheckLocationSettings(locationSettingsRequestBuilder.Build)
End Sub

Sub FusedLocationProvider1_ConnectionFailed(connectionResult As Int)
	Log("Connection failed. Result code: " & connectionResult)
End Sub

Sub FusedLocationProvider1_LocationSettingsChecked(locationSettingsResult As LocationSettingsResult)
	isGpsEnabled = locationSettingsResult.GetLocationSettingsStates.IsGpsUsable
	GetLocationPermission
End Sub

Sub FusedLocationProvider1_LocationChanged(location As Location)
	Private userMarkerDrawable As Int
	package = reflector.GetStaticField("anywheresoftware.b4a.BA", "packageName")
	userMarkerDrawable = reflector.GetStaticField(package & ".R$drawable", "ic_user_marker")
	userMarker = NeshanMapSdk1.addMarker(userMarkerDrawable,25,location.Latitude,location.Longitude)
	NeshanMapSdk1.showAccuracyCircle(userLocation)
	NeshanMapSdk1.moveCamera(location.Latitude,location.Longitude,0.5)
End Sub

Sub GetLocationPermission
	runtimePermissions.CheckAndRequest(runtimePermissions.PERMISSION_ACCESS_FINE_LOCATION)
	Wait for Activity_PermissionResult (Permission As String, Result As Boolean)
	If Result Then
		If isGpsEnabled Then
			'Get user location
			Private LocationRequest1 As LocationRequest
			LocationRequest1.Initialize
			LocationRequest1.SetPriority(LocationRequest1.Priority.PRIORITY_HIGH_ACCURACY)
			fusedLocationProvider1.RequestLocationUpdates(LocationRequest1)
		Else
			NeshanMapSdk1.openGpsSettings
		End If
	Else
		Log("Permission not granted")
	End If
End Sub