Public Sub SetAll( _
   ByVal Scope As Long, _
   ByVal Color As Long, _
   ByVal Width As Double, _
   ByVal LINESTYLE As String, _
   ByVal DISPLAY As Boolean, _
   ByVal Locate As Boolean, _
   ByVal flagsToSet As Long _
)