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
theDoc.Color = "240 240 255"
theDoc.Rect.Height = 16
theDoc.Color = "220 0 0"