Label Example

Label Example

Sub Example_Label()

    ' This example returns the Label for the first FileLock in the collection.

    Dim filelock As AeccFileLock

    Set filelock = AeccApplication.ActiveProject.fileLocks.Item(0)

    MsgBox "The Label of the first FileLock in the collection is: " & filelock.Label, _

        vbInformation, "Label Example"

End Sub