XRefLayerVisibility property example

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