Longitude Example
Sub Example_Longitude ()
' This example returns the Latitude and Longitude
' for the first CogoPoint in the collection.
Dim cogoPnt As AeccCogoPoint
Set cogoPnt = AeccApplication.ActiveProject.CogoPoints.Item(0)
MsgBox "The Latitude for the first CogoPoint in the collection is: " & cogoPnt.Latitude & vbCrLf & _
"The Longitude for the first CogoPoint in the collection is: " & cogoPnt.Longitude, vbInformation, "Longitude Example"
End Sub