DockedVisibleLines property example

Sub DockedVisibleLines_Example()
' This example obtains and modifies the DockedVisibleLines property.
    Dim myPrefs As AcadPreferences
    Set myPrefs = ThisDrawing.Application.preferences
    Dim iCurrentNumberLines As Long
    iCurrentNumberLines = myPrefs.Display.DockedVisibleLines
    MsgBox "The DockedVisibleLines property is: " & myPrefs.Display.DockedVisibleLines
    myPrefs.Display.DockedVisibleLines = 15
    MsgBox "The DockedVisibleLines property is: " & myPrefs.Display.DockedVisibleLines
    myPrefs.Display.DockedVisibleLines = iCurrentNumberLines
    MsgBox "The DockedVisibleLines property is: " & myPrefs.Display.DockedVisibleLines
End Sub