Sub TouchOverLay1_Click(GeoPoint1 As OSMDroid_GeoPoint) As Boolean
AddAreaPoint(GeoPoint1)
Return(False)
End Sub
Sub AddAreaPoint(GeoPoint1 As OSMDroid_GeoPoint)
'as there seems no way to get these back from the PathOverLay!
PathOverLay1Points.Add(GeoPoint1)
PathOverlay1.AddPoint(GeoPoint1)
End Sub