Private Sub DataStatistics() Dim pMxDoc As IMxDocument, pFLayer As IFeatureLayer Dim pCursor As ICursor, pStatResults As IStatisticsResults Set pMxDoc = ThisDocument Set pFLayer = pMxDoc.FocusMap.Layer(0) Set pCursor = pFLayer.Search(Nothing, False) Dim p ...