Hi allWhenever I modify a layer and the layer is in a group the following function FindLayer(ByRef pMap As ESRI.ArcGIS.Carto.IMap) does not find it.Please advice  'finish edit operation
            m_pEditor.StopOperation(("Merge Network Features"))
            ErrCode = 2
            'refresh features
            Dim pRefresh As ESRI.ArcGIS.Geodatabase.IInvalidArea
            pRefresh = New ESRI.ArcGIS.Carto.InvalidArea
            pRefresh.Display = m_pEditor.Display
            pRefresh.Add(pNewFeature)
            pRefresh.Invalidate(-2)
'select new feature
            Dim pMap As ESRI.ArcGIS.Carto.IMap
            pMap = m_pEditor.Map
            pMap.ClearSelection()
            pMap.SelectFeature(FindLayer(pMap), pNewFeature)   #######DOES NOT WORK
             Me.Close()
            '  Exit Sub
          
        Catch ex As Exception
            Debug.Print(ex.Message)
            MsgBox("Error Message: " & ex.Message)
        End Try
    End Sub
Public Function FindLayer(ByRef pMap As ESRI.ArcGIS.Carto.IMap) As ESRI.ArcGIS.Carto.ILayer
        'helper function to find a layer for a feature class
        Dim i As Integer
        Dim pLayer As ESRI.ArcGIS.Carto.ILayer
        Dim pFeatLayer As ESRI.ArcGIS.Carto.IFeatureLayer
        Try
            For i = 0 To pMap.LayerCount - 1
                pLayer = pMap.Layer(i)
                Debug.WriteLine(player.Name)
                'UPGRADE_WARNING: TypeOf has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
                If TypeOf pLayer Is ESRI.ArcGIS.Carto.IFeatureLayer Then
                    pFeatLayer = pLayer
                    'Check if the layer is valid, ie: it's data source is valid....
                    'UPGRADE_WARNING: Couldn't resolve default property of object pFeatLayer.Valid. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    If pFeatLayer.Valid Then
                        'UPGRADE_WARNING: Couldn't resolve default property of object m_pFC.ObjectClassID. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                        'UPGRADE_WARNING: Couldn't resolve default property of object pFeatLayer.FeatureClass.ObjectClassID. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                        If pFeatLayer.FeatureClass.ObjectClassID = m_pFC.ObjectClassID Then
                            pLayer = pFeatLayer
                            FindLayer = pLayer
                        End If
                    End If
                End If
            Next i
        Catch ex As Exception
            Debug.Print(ex.Message)
            MsgBox("Error Message: " & ex.Message)
        End Try
    End Function