Возвращает суммарную площадь выделенных обектов.
Visual Basic:
Function Area() As Double
'выделить в активном слое все объекты MapCtrl1.Map.Layers.Active.Selection.SelectAll 'вернуть их суммарную площадь MsgBox MapCtrl1.Map.Layers.Active.Selection.Area