テーブル結合したフィーチャ群を取得

Public Sub GetFeatures()
    Dim pMxDocument As IMxDocument
    Set pMxDocument = ThisDocument
    
    Dim pDisplayTable As IDisplayTable
    Set pDisplayTable = pMxDoc.FocusMap.Layer(0)
    
    Dim pSelectionSet As ISelectionSet
    Set pSelectionSet = pDisplayTable.DisplaySelectionSet
    
    Dim pFeatureCursor As IFeatureCursor
    pSelectionSet.Search Nothing, False, pFCursor
    
    Dim pFeature As IFeature
    Set pFeature = pFCursor.NextFeature
End Sub