I need to change the color and thickness of the line that I just added to the map. How can I do it? The following code does not work because nothing has been selected. Thanks.

'Add a Line from one location to the other
objmap.Shapes.AddLine objloc0, objloc1

Set objshape = objmap.Selection
objshape.line.ForeColor = color
objshape.line.Weight = 1