MaxActiveViewports property example

Private Sub MaxAVs_Example()

     ' This example returns the current setting of

     ' MaxActiveViewports.

     Dim MaxAVs As Long

     MaxAVs = ThisDocument.Preferences.MaxActiveViewports

     MsgBox "The MaxActiveViewports property is: " & MaxAVs

End Sub