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