IF NOT EMPTY( This.cHeaderClass ) FOR EACH oColumn IN THIS.COLUMNS *** replace the header with custom header class *** created in code FOR EACH loObj IN oColumn.Controls IF loObj.BaseClass = 'Header' lcName = loObj.Name oColumn.REMOVEOBJECT( lcName ) oColumn.ADDOBJECT( lcName, This.cHeaderClass ) EXIT ENDIF ENDFOR ENDFOR ENDIF