MinDepressionArea Example

Sub Example_MinDepressionArea()

    ' This example returns the MinDepressionArea 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 MinDepressionArea setting for WaterSheds is: " & wSheds.MinDepressionArea _

        , vbInformation, "MinDepressionArea Example"

End Sub