Active Example

Active Example

Sub Example_Active()

    ' This example returns the Active setting for the first Project

    ' in the collection

    Dim proj As AeccProject

    Set proj = AeccApplication.Projects.Item(0)

    MsgBox "The Active value for the first Project in the collection is: " & proj.Active, _

        vbInformation, "Active Example"

End Sub