DisplayScrollBars property example

Sub DisplayScrollBars_Example()
' This example toggles the DisplayScrollBars property
    Dim myPrefs As AcadPreferences
    Set myPrefs = ThisDrawing.Application.preferences
    Dim scrollBarStatus As Boolean
    scrollBarStatus = myPrefs.Display.DisplayScrollBars
    MsgBox "The DisplayScrollBars property is: " & scrollBarStatus
    'Toggle the visibility of the scroll bars.
    myPrefs.Display.DisplayScrollBars = Not (scrollBarStatus)
    MsgBox "The DisplayScrollBars property is now: " & myPrefs.Display.DisplayScrollBars
End Sub