The Type property specifies the type of linear dimension that is created.
Examples:
The following VBA example creates a rectangle and a linear dimension that is linked to the rectangle's snap points. The type of the linear dimension is then displayed.
Sub Test()
Dim shp1 As Shape, shp2 As Shape
Set shp1 = ActiveLayer.CreateRectangle2(0, 0, 8, 4)
Set shp2 = ActiveLayer.CreateLinearDimension(cdrDimensionHorizontal, _
shp1.SnapPoints(1), shp1.SnapPoints(3))
MsgBox shp2.Dimension.Linear.Type
End Sub