The Active property returns the active state of the layer as a Boolean. This is a read-only property.
Syntax
object.Active
Example
This example creates a second layer and then returns the active state of the layer.
Dim mvApp As Object
Set mvApp = CreateObject("MapViewer.Application")
Set Plot = mvApp.Documents.Add(DocType:=mvDocPlot)
Set MapLayers = Plot.Layers
MapLayers.AddLayer(2)
Debug.Print MapLayers(2).Active
Used by: Layer object