Specify a layer in this collection with an index
VB: Property Get Item(Index As ByVal Object ) As Layer
C++: Layer Item(_variant_t Index )
C#: Layer Item(var Index )
Sub LayersItem() Dim app As Origin.IOApplication Dim pg As Origin.Page Dim ly As Origin.Layer app = New Origin.ApplicationSI pg = app.ActivePage If pg Is Nothing Then MsgBox("Can not get active page") Exit Sub End If ly = pg.Layers.Item(pg.Layers.Count - 1) ly.Activate() 'make the last layer as active End Sub
8.0SR2