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