ContourLinesPerSurface property example

Private Sub ContourLinesExample()

     ' This example obtains the current setting of the

     ' ContourLinesPerSurface property.

 

     Dim ContourLines As Integer

     ContourLines = ThisDocument.Preferences.ContourLinesPerSurface

     MsgBox "The ContourLinesPerSurface property is: " & ContourLines

End Sub