Solved! Go to Solution.
Dim featureCursor As IFeatureCursor = featureLayer.FeatureClass.Search(Nothing, False) Dim feature As IFeature = featureCursor.NextFeature Do While feature IsNot Nothing Dim geometry As IGeometry = feature.ShapeCopy feature = featureCursor.NextFeature Loop
Dim featureCursor As IFeatureCursor = featureLayer.FeatureClass.Search(Nothing, False) Dim feature As IFeature = featureCursor.NextFeature Do While feature IsNot Nothing Dim geometry As IGeometry = feature.ShapeCopy feature = featureCursor.NextFeature Loop