Cogo Example

Cogo Example

Sub Example_Cogo()

    ' This example returns the text size for Cogo Preferences

    ' in the current project.

    Dim prefPrj As AeccPreferencesProject

    Set prefPrj = AeccApplication.ActiveProject.Preferences

    MsgBox "The text size for Cogo Preferences in the current Project is: " & prefPrj.Cogo.GetDouble(kPntTextSize) _

        , vbInformation, "Cogo Example"

End Sub