Private Sub DockedVisibleLines_Example()
'The example obtains the DockedVisibleLines property.
Dim myobj As ApplicationPreferences
Dim dockedStatus As Long
Set myobj = IntelliCAD.Preferences
dockedStatus = myobj.DockedVisibleLines
MsgBox "The DockedVisibleLines property is: " & dockedStatus
End Sub