CurrentAlignment Example

Sub Example_CurrentAlignment()

    ' This example returns the CurrentAlignment Value.

    Dim aligns As AeccAlignments

    Set aligns = AeccApplication.ActiveProject.Alignments

    MsgBox "The CurrentAlignment for alignments is " & aligns.CurrentAlignment, _

        vbInformation, "CurrentAlignment Example"

End Sub