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