SetString Example
Sub Example_SetSting()
' This example uses SetString to define the SurfaceLayer
' for PreferencesSurface.
Dim surfPref As AeccPreferencesSurface
Set surfPref = AeccApplication.ActiveProject.preferences.Surface
surfPref.SetString kSurfaceLayer, "MyLayer"
MsgBox "The value for SurfaceLayer is " & surfPref.GetString(kSurfaceLayer) , vbInformation, "SetString Example"
End Sub