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