The collection of all shape style objects are found in the AeccRoadwayDocument.ShapeStyles property. This style object contains properties for adjusting the visual display of assembly and subassembly shapes, including the outline and the inside area.
Shape style objects are not used directly with shape objects, but are instead used with roadway style sets.
' Create a new shape style and change it so that it has
' an orange border and a yellow hatch fill.
Dim oShapeStyle As AeccRoadwayShapeStyle
Set oShapeStyle = oRoadwayDocument.ShapeStyles.Add("Style3")
With oShapeStyle
.AreaFillDisplayStylePlan.color = 50 ' yellow
.AreaFillDisplayStylePlan.Visible = True
.AreaFillHatchDisplayStylePlan.HatchType = aeccHatchPreDefined
.AreaFillHatchDisplayStylePlan.Pattern = "LINE"
.BorderDisplayStylePlan.color = 30 ' orange
.BorderDisplayStylePlan.Visible = True
End With