FOR EACH COLUMN IN This.Columns IF loColumn % 2 = 0 loColumn.ForeColor = RGB( 0, 0, 128 ) loColumn.BackColor = RGB( 0, 255, 255 ) ENDIF ENDFOR