Time Example

Land Auto

previous page next page

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

previous page start next page