Public Sub SetTrackingMode(Intensive As Boolean)
currentTrackingIntensive = Intensive
If fl.IsInitialized = False Or fl.FLP = Null Then Return
Dim no As NativeObject = fl.FLP
no = no.GetField("manager")
Try
no.SetField("desiredAccuracy", IIf(Intensive, 50, 100))
no.SetField("distanceFilter", IIf(Intensive, 1, 10))
no.SetField("pausesLocationUpdatesAutomatically", False)
Catch
Log("Error configuring TrackingMode: " & LastException)
Return
End Try
If IsValidLocationManager(fl.FLP) = False Then
gpsWatchdog_Tick
End If
End Sub