We iterate through each of the fields. For each field, we focus
on the field. We then color the rectangle light gray and draw the
name of the field in dark red.
For Each theField in theDoc.Form.Fields
theField.Focus
theDoc.Color = "240 240 255"
theDoc.FillRect
theDoc.Rect.Height = 16
theDoc.Color = "220 0 0"
theDoc.AddText theField.Name
theDoc.Delete theField.ID
Next
|