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