Sub MapsGps_LocationChanged(lCurrent As Location) ' is also called by MapsTest2
...
'Bearing: 0° = north on top, 90° = east on top, 180° = south on top, 270° = west on top
dMapsGpsBearing = lMapsGpsLast.BearingTo(lMapsGpsCurrent)
If dMapsGpsBearing < 0 Then
dMapsGpsBearing = dMapsGpsBearing + 360
End If
'Log("dMapsGpsBearing=" & dMapsGpsBearing)
UpdatePanelMaps(False, False)
...
End Sub