oApp = CREATEOBJECT("MapPoint.Application") oMap = oApp.ActiveMap oApp.Visible = .T. oApp.UserControl = .T. DIMENSION aoLoc[4] aoLoc[1] = oMap.FindResults("Seattle, WA").Item(1) aoLoc[2] = oMap.FindResults("Redmond, WA").Item(1) aoLoc[3] = oMap.FindResults("Tacoma, WA").Item(1) aoLoc[4] = aoLoc[1] oMap.Location = aoLoc[1] oMap.Shapes.AddPolyline(@aoLoc)