MinGrade Example
Sub Example_MinGrade()
' This example returns the MinGrade for the first surface in the collection.
Dim surf As AeccSurface
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
MsgBox "The MinGrade for the first surface is " & Format(surf.MinGrade, "0.00\%"), _
vbInformation, "MinGrade Example"
End Sub