DrainsInto Example
Sub Example_DrainsInto()
' This example returns the ID of the first WaterShed that is
' drained into for the first WaterShed in the collection.
Dim surf As AeccSurface
Dim wShed As AeccWaterShed
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set wShed = surf.Outputs.WaterSheds.Item(0)
MsgBox "The first Watershed Id that is drained into is: " & wShed.Id _
, vbInformation, "DrainsInto Example"
End Sub