OverrideOpen Example

Sub Example_OverrideOpen()

    ' This example returns the OverrideOpen setting.

    Dim prefUser As AeccPreferencesUser

    Set prefUser = AeccApplication.Preferences.User

    MsgBox "The current value for OverrideOpen is: " & prefUser.OverrideOpen, _

        vbInformation, "OverrideOpen Example"

End Sub