Dim pMxDoc As IMxDocument Set pMxDoc = Application.Document Dim pMap As IMap Set pMap = pMxDoc.FocusMap Dim pActiveView As IActiveView Set pActiveView = pMap Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = pMap.Layer(0) Dim pFeatureSelection As IFeatureSelection Set pFeatureSelection = pFeatureLayer Set pTable = pFeatureLayer.FeatureClass Dim pFClass As IFeatureClass Set pFClass = pFeatureLayer.FeatureClass Dim pFCursor As IFeatureCursor Set pFCursor = pFClass.Update(Nothing, False) Dim pF As IFeature Set pF = pFCursor.NextFeature Do Until pF Is Nothing ListBox3.AddItem pF.Value(6) Set pF = pFCursor.NextFeature Loop
Solved! Go to Solution.