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