Sub FusedLocation_LocationChanged(Location1 As Location)
'This sub is within [B]Main[/B]
Log(Location1.Latitude & "," & Location1.Longitude)
kvs.Put("lat", Location1.Latitude+(Rnd(-9,9)/100))
kvs.Put("lon", Location1.Longitude+(Rnd(-9,9)/100))
If Location1.AccuracyValid=True Then
kvs.Put("accuracy", localLocation.Accuracy)
Else
kvs.Put("accuracy", 0)
End If
B4XPages.GetManager.RaiseEvent(B4XPages.GetManager.GetTopPage, "LocationChanged", Null)
End Sub