M
Marc
Anyone know why the below array doesnt work?
Dim locations() As MapPoint.Location
Set locations(1) = objMap.FindResults("Los Angeles, California")(1)
Set locations(2) = objMap.FindResults("Honolulu, Hawaii")(1)
Set locations(3) = objMap.FindResults("Tokyo, Japan")(1)
Dim oShp As MapPoint.Shape
Set oShp = objMap.Shapes.AddPolyline(locations)
Dim locations() As MapPoint.Location
Set locations(1) = objMap.FindResults("Los Angeles, California")(1)
Set locations(2) = objMap.FindResults("Honolulu, Hawaii")(1)
Set locations(3) = objMap.FindResults("Tokyo, Japan")(1)
Dim oShp As MapPoint.Shape
Set oShp = objMap.Shapes.AddPolyline(locations)