CogoPoints Example
Sub Example_CogoPoints()
' This example returns the number of CogoPoints in the current project.
Dim proj As AeccProject
Set proj = AeccApplication.ActiveProject
MsgBox "The number of CogoPoints in the current Project is: " & proj.CogoPoints.Count, _
vbInformation, "CogoPoints Example"
End Sub