OverflowPoints Example

Sub Example_OverflowPoints()

    ' This example returns the first point in the OverflowPoints

    ' 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)

    Dim coords As Variant

    coords = wShed.OverflowPoints

    MsgBox "The first OverFlowPoint for the first WaterShed is: " & coords(0) & ", " & coords(1) & ", " & coords(2) _

        , vbInformation, "OverflowPoints Example"

End Sub