objects AEC with ADT

Hi
I have a simple question :

To find coordinate s of a polyline with ACAD2004, I can use "
object.Coordinate(index) "

In ADT 2004 , how is it possible to find all the coordinates of an
areaObject ?

Sub myarea()

Dim obj As AcadObject
Dim pointbase As Variant
Dim retCoord As Variant
ThisDrawing.Utility.GetEntity obj, pointbase, "choose an object"
If TypeOf objet Is AecArea Then
Dim AecArea As AecArea
Set AecArea = obj
MsgBox "AEC surf:" & AecArea.CalculatedArea & "periPerimeter :&
AecArea.BasePerimeter, vbInformation, "Description "
End If
End Sub


Where are the vertex ? (and the name of the area, if possible ...)

Thanks

Patrick