VB and Lines

I have placed a series of lines on a map using the addline function. The default color is black, is there anyway to change this? Also I want to be able to clear the map of the lines, is there a method to do this?

Many Regards,
Milo

Here are some samples that might help.

Set objmap = GetObject(,"MapPoint.Application").ActiveMap
Set objShapes = objmap.Shapes
For Each objshape In objShapes
Select Case objshape.Type
Case 9
objshape.Line.ForeColor = vbRed
End select
next

This will delete all shapes.
Set objmap = GetObject(,"MapPoint.Application").ActiveMap
Set objShapes = objmap.Shapes
For Each objshape In objShapes
objshape.delete
next