Parcels Example

Parcels Example

Sub Example_Parcels()

    ' This example returns the number of Parcels in the current project.

    Dim proj As AeccProject

    Set proj = AeccApplication.ActiveProject

    MsgBox "The number of Parcels in the current Project is: " & proj.Parcels.Count _

        , vbInformation, "Parcels Example"

End Sub