SetString Example

Land Auto

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