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