Gets the number of columns of the screen.
This example prints the row and column of any locations that are field attribute positions.
Sub IsAttributeExample()
Dim i, y As Integer
For i = 1 To ThisIbmScreen.rows
For y = 1 To ThisIbmScreen.columns
If ThisIbmScreen.IsAttribute(i, y) = True Then
Debug.Print "field attribute location: row " & i & "column " & y
Else
Debug.Print "None"
End If
Next
Next
End Sub
