Profile Example

Profile Example

Sub Example_Profile()

    ' This example returns the base grid layer for Profile Preferences

    ' in the current project.

    Dim prefPrj As AeccPreferencesProject

    Set prefPrj = AeccApplication.ActiveProject.Preferences

    MsgBox "The base grid layer for Profle Preferences in the current Project is: " _

        & prefPrj.Profile.GetString(kBaseGridLayer), vbInformation, "Profile Example"

End Sub