IsNameSupported Example

Sub Example_IsNameSupported()

    ' This gets the IsNameSupported for the CogoPoints collection

    Dim cogoPnts As AeccCogoPoints

    Set cogoPnts = AeccApplication.ActiveProject.CogoPoints

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

        vbInformation, "IsNameSupported Example"

End Sub