Archived Forums

Private Sub UIButtonControl1_Click()

    Dim pEditor As IEditor
    Dim pID As New UID
    Dim pMxDoc As IMxDocument
    Dim pMap As IMap
    Dim pActiveView As IActiveView
    Dim pFeatureLayer As IFeatureLayer
    Dim pDataset As IDataset
    Dim LayerCount As Integer
    Dim pFeatureSelection As IFeatureSelection
    Dim pQueryFilter As IQueryFilter
    Dim i As Integer
    Dim player As ILayer
    
    Set pMxDoc = Application.Document
    Set pMap = pMxDoc.FocusMap
    pID = "esriCore.Editor"
  
    Set pEditor = Application.FindExtensionByCLSID(pID)
    Set pActiveView = pMap
    
    For i = 0 To pMap.LayerCount
    
    If pMap.Layer(i).Name = "Blank Scheming" Then
    Set player = pMap.Layer(i)
    Exit For
    End If
    Next i

Dim pCompositeLayer As ICompositeLayer
For i = 0 To pMap.LayerCount - 1
        If TypeOf pMap.Layer(i) Is ICompositeLayer Then
            If pMap.Layer(i).name = "Blank Scheming" Then
                Set pCompositeLayer = pMap.Layer(i)
                Set pLayer = pCompositeLayer.Layer(2) ' It will point to third layer of that group
            End If
        End If
    Next