Private Sub SegPerPline_Example()
' This example returns the current setting of SegmentPerPolyline.
Dim Segs As Long
Segs = ThisDocument.Preferences.SegmentPerPolyline
MsgBox "The SegmentPerPolyline property is: " & Segs
End Sub