CurrentSurface Example

Sub Example_CurrentSurface()

    ' This example returns the CurrentSurface setting.

    Dim surfs As AeccSurfaces

    Set surfs = AeccApplication.ActiveProject.Surfaces

    MsgBox "The CurrentSurface is: " & surfs.CurrentSurface, vbInformation, "CurrentSurface Example"

End Sub