Hi Ron

WITH .Column1
* UNBIND CONTROL
.BOUND = .F. && AND .CONTROLSOURCE = ''
.READONLY = .F.
.NEWOBJECT('chkSelect', 'cchkBase', 'BaseCtrls')
.CONTROLSOURCE.chkSelect = 'csDateList.DateChgSel'
.WIDTH = 15
.CURRENTCONTROL = 'chkSelect'
.SPARSE = .F.
.Header1.CAPTION = 'Code'
ENDWITH

FABIO