XRefLayerVisibility property example

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