Status Example
Sub Example_Status()
' This example displays the Status for the first surface in the collection.
Dim surf As AeccSurface
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Dim strStatus As String
' Set string to status of surface
Select Case surf.Status
Case kNoData
strStatus = "has no data."
Case kNotBuilt
strStatus = "is not built."
Case kUpToDate
strStatus = "is up to date."
Case kOutOfDate
strStatus = "is out of date."
End Select
MsgBox "The current surface " & strStatus, vbInformation, "Status Example"
End Sub