Application Example
Sub Example_Application()
' This example uses the AeccApplication property to navigate to the top of
' the object hierarchy to compare the current project with the last used project.
Dim proj As AeccProject
Set proj = AeccApplication.ActiveProject
MsgBox "The current project is " & proj.Application.ActiveProject.Name & _
" and the last used project is " & _
proj.Application.Preferences.User.LastUsedProj, _
vbInformation, "Application Example"
End Sub