Dim dblX, dblY
If Application.GPS.IsOpen Then
dblX = GPS.X
dblY = GPS.Y
Application.UserProperties("LOCx")=dblX
Application.UserProperties("LOCy")= dblY
Else
dblX = map.pointerX
dblY = map.pointerY
End If
I'm no coder, but does "OnAverageStart Event" work, it's in the help. If you have the GPS active and averaging set in preferences, I don't see how you are not collecting an average.