Course Example
Sub Example_Course()
' This example returns the Course for the first entity in the
' first Parcel in the collection.
Dim parcel As AeccParcel
Dim parcelEnt As AeccParcelEntity
Set parcel = AeccApplication.ActiveProject.Parcels.Item(0)
Set parcelEnt = parcel.ParcelEntities.Item(0)
MsgBox "The Course of the first entity in the Parcel is: " & parcelEnt.Course, _
vbInformation, "Course Example"
End Sub