ExceedBoth Example
Sub Example_ExceedBoth()
' This example returns the ExceedBoth setting for the WaterSheds.
Dim surf As AeccSurface
Dim wSheds As AeccWaterSheds
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set wSheds = surf.Outputs.WaterSheds
MsgBox "The ExceedBoth setting for WaterSheds is: " & wSheds.ExceedBoth, _
vbInformation, "ExceedBoth Example"
End Sub