vb+mo开发的小程序

PrivateSubCommand1_Click() DimiAsInteger DimlayerAsMapLayer DimstatsAsStatistics DimclassAsNewClassBreaksRenderer DimbreakAsDouble Setlayer=Map1.Layers("states") Setlayer.Renderer=class Withclass .SymbolType=moFillSymbol .Field="area" Setstats=layer.Rec