DisplayScrollBars property example

Private Sub CommandButton4_Click()

     'This example toggles the DisplayScrollBars property

     Dim myobj As ApplicationPreferences

     Dim scrollBarStatus As Boolean

     Set myobj = IntelliCAD.Preferences

     scrollBarStatus = myobj.DisplayScrollBars

     MsgBox "The DisplayScrollBars property is: " & scrollBarStatus

 

     ' Toggle the visibility of the scroll bars.

     myobj.DisplayScrollBars = Not (scrollBarStatus)

     MsgBox "The DisplayScrollBars property is now: " & myobj.DisplayScrollBars

End Sub