Time Example
Sub Example_Time()
' This example returns the Time for the first FileLock in the collection.
Dim filelock As AeccFileLock
Set filelock = AeccApplication.ActiveProject.fileLocks.Item(0)
MsgBox "The Time of the first FileLock in the collection is: " & filelock.Time, _
vbInformation, "Time Example"
End Sub