NextPointNumber Example

Sub Example_NextPointNumber()

    ' This gets the NextPointNumber in the CogoPoints collection

    Dim cogoPnts As AeccCogoPoints

    Set cogoPnts = AeccApplication.ActiveProject.CogoPoints

    MsgBox "The NextPointNumber for CogoPoints is: " & cogoPnts.NextPointNumber, _

        vbInformation, "NextPointNumber Example"

End Sub