MinDepressionDepth Example

Sub Example_MinDepressionDepth()

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

        , vbInformation, "MinDepressionDepth Example"

End Sub