Getinteger Example
Sub Example_GetInteger()
' This example uses GetInteger to return the ContLabelPrecision
' for PreferencesSurface.
Dim surfPref As AeccPreferencesSurface
Set surfPref = AeccApplication.ActiveProject.preferences.Surface
MsgBox "The value for ContLabelPrecision is " & surfPref.GetInteger(kContLabelPrecision), _
vbInformation, "GetInterger Example"
End Sub