Watersheds Example
Sub Example_Watersheds()
' This example returns the number of WaterSheds in the first
' surface in the collection.
Dim surf As AeccSurface
Dim surfOut As AeccSurfaceOutputs
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set surfOut = surf.Outputs
MsgBox "The number of WaterSheds in the first Surface is: " & surfOut.WaterSheds.Count _
, vbInformation, "WaterSheds Example"
End Sub