SegmentPerPolyline property example

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