Private Sub XrefVis_Example()
' This example returns the current setting of XRefLayerVisibility.
Dim xrefvis As Boolean
xrefvis = ThisDocument.Preferences.XRefLayerVisibility
MsgBox "The XRefLayerVisibility property is: " & xrefvis
End Sub