FileLocks Example
Sub Example_FileLocks()
' This example returns the number of FileLocks
' in the current project.
Dim proj As AeccProject
Set proj = AeccApplication.ActiveProject
MsgBox "The number of FileLocks in the current Project is: " & proj.FileLocks.Count _
, vbInformation, "FileLocks Example"
End Sub