Gets a host field collection that matches specifed field attributes.
This sample gets all the unprotected fields on a screen and prints their screen positions.
Sub GetFieldsExample()
Dim fields() As HostField
Dim field As Variant
fields = ThisIbmScreen.GetFields(FieldType_Unprotected)
For Each field In fields
If Trim(field.text) = "" Then
text = " is empty"
Else
text = " contains " & field.text
End If
Debug.Print "Field at row " & field.startRow; " and column " & field.startColumn & text
Next
End Sub