MaxActiveViewports property example

Sub MaxActiveViewports_Example()
' This example returns the current setting of MaxActiveViewports.
    Dim MaxAVs As Long
    MaxAVs = ThisDrawing.preferences.MaxActiveViewports
    MsgBox "The MaxActiveViewports property is: " & MaxAVs
End Sub