SetDouble Example
Sub Example_SetDouble()
' This example uses SetDouble to define the ContLabelSpacingDist
' for PreferencesSurface.
Dim surfPref As AeccPreferencesSurface
Set surfPref = AeccApplication.ActiveProject.preferences.Surface
surfPref.SetDouble kContLabelSpacingDist, 200#
MsgBox "The value for ContLabelSpacingDist is " & surfPref.GetDouble(kContLabelSpacingDist), _
vbInformation, "SetDouble Example"
End Sub