Format Example
Sub Example_Format()
' This example returns the Format setting for the first PointFile
' in the collection.
Dim surf As AeccSurface
Dim pntFile As AeccPointFile
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set pntFile = surf.Inputs.PointFiles.Item(0)
MsgBox "The Format for the first PointFile in the collection is: " & pntFile.Format _
, vbInformation, "Format Example"
End Sub