-
Dim Point1, Point2, Point3, Point4, Point5 As LatLng
Dim Points As List
Points.Initialize
' points must be ordered in a counterclockwise order
' (i found FillColor will fail if not correctly ordered)
Point1.Initialize(52.756, 0.400)
Points.Add(Point1)
Point2.Initialize(52.417, 0.753)
Points.Add(Point2)
Point3.Initialize(52.638, 1.291)
Points.Add(Point3)
Point4.Initialize(52.902, 0.617)
Points.Add(Point4)
Point5.Initialize(52.756, 0.400)
Points.Add(Point5) ' closes the path