DockedVisibleLines property example

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