Dim objmap As MapPointCtl.Map
Set objmap = MappointControl1.ActiveMap
Dim ashape As MapPointCtl.Shape
Dim aLocation1 As MapPointCtl.Location
Dim aLocation2 As MapPointCtl.Location

Set aLocation1 = objmap.FindResults("New York, NY").Item(1)
Set aLocation2 = objmap.FindResults("Atlanta, GA").Item(1)
Set ashape = objmap.Shapes.AddLine(aLocation1, aLocation2)
ashape.Line.Weight = 1