Sub MyLocationOverlay1_LocationChanged(NewLocation As Location, IsFirstFix As Boolean)
'Log("MyLocationOverlay1_LocationChanged, Latitude="&NewLocation.Latitude&", Longitude="&NewLocation.Longitude&", IsFirstFix="&IsFirstFix)
SimpleLocationOverlay1.SetMyLocation2( NewLocation)
MapView1.SetCenter2(NewLocation)
SpeedKmh=NewLocation.Speed*3.6
acc=NumberFormat2(NewLocation.Accuracy,0,0,0,False)
Activity.Title="OSMDroid ["&MapView1.Zoom&"] - GPS Accuracy: "&acc&" m: Speed: "&SpeedKmh&" km/h"
End Sub