Sub StartBackground(lm2 As LocationManager, MinimumDistance As Double)
Dim no As NativeObject = lm2
no = no.GetField("manager")
no.SetField("pausesLocationUpdatesAutomatically", False)
If App.OSVersion >= 8 Then
no.RunMethod("requestAlwaysAuthorization", Null)
End If
'If App.OSVersion >= 9 Then '<--- new requirement in iOS 9
' no.RunMethod("setAllowsBackgroundLocationUpdates", Array(True))
'End If
'no.SetField("distanceFilter", 1)
'no.SetField("pausesLocationUpdatesAutomatically", False)
'no.SetField("startMonitoringSignificantLocationChanges", False)
'no.RunMethod("startUpdatingLocation", Null)
If App.OSVersion >= 9 Then
no.RunMethod("setAllowsBackgroundLocationUpdates:", Array(True))
End If
no.SetField("distanceFilter", MinimumDistance)
no.RunMethod("startUpdatingLocation", Null)
End Sub