>*---------------------------------------
>*--- Set the column controls' BackColor,
>*--- ForeColor and SelectedBackColor
>*---------------------------------------
> FOR lnColumn = 1 TO THIS.COLUMNCOUNT
> loControl = EVAL("This.columns[lncolumn]." + THIS.COLUMNS[lnColumn].CURRENTCONTROL)
> loControl.BACKCOLOR = THIS.nSelectedBackColor
> loControl.FORECOLOR = THIS.nSelectedForeColor
> IF THIS.HasSelectedBackColor(loControl)
> loControl.SELECTEDBACKCOLOR = THIS.nSelectedBackColor
> ENDIF
> ENDFOR

Wouldn't it be easier to use pemstatus:

IF PEMSTATUS( loControl, 'SelectedBackColor', 5)
   loControl.SELECTEDBACKCOLOR = THIS.nSelectedBackColor
ENDIF

BOb