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