LockType Example
Sub Example_LockType()
' This example returns the LockType setting for the
' first Alignment in the collection.
Dim align As AeccAlignment
Set align = AeccApplication.ActiveProject.Alignments.Item(0)
' Convert the lock type to a string.
Dim LockType As String
Select Case align.LockType
Case kNoLock
LockType = "no lock exists."
Case kReadLock
LockType = "the user can only read the object."
Case kWriteLock
LockType = "the user can read and write the object."
End Select
MsgBox "The current value for LockType is " & LockType , vbInformation, "LockType Example"
End Sub