CREATE TABLE tt (id i, chkbox L)
FOR i= 1  TO  10 
	INSERT INTO tt VALUES (i, i% 2 = 0 )
NEXT

ff = NEWOBJECT("myf")
ON KEY LABEL ESC clea events
ff.show()
READ EVENTS 
ON KEY LABEL ESC 


DEFINE CLASS myf as Form  
ADD OBJECT grid1 as myGrid
windowType =  0 

PROCEDURE resize
this.grid1.width = this.Width
this.grid1.height = this.Height 

PROCEDURE init
WITH this.grid1.column2
	.addObject('chkb1', 'checkbox')
	.currentControl = 'chkb1'
	.chkb1.visible = .t.
	.chkb1.caption = 'enabled'
	.addObject('chkb2', 'checkbox')
	.chkb2.visible = .t.
	.chkb2.caption = 'disabled'
	.chkb2.enabled = .F.
	.sparse = .f.
	.dynamicCurrentControl = "IIF(id%2=0, 'chkb1', 'chkb2')" && OR "MYFU()"
ENDWITH
ENDDEFINE 

DEFINE CLASS myGrid as Grid 
columnCount =  2 
recordSourceType =  0 
recordSource = "tt.dbf"
highlightstyle =  2 
PROCEDURE init
this.Top= 0 
this.Width = thisform.width
this.Height=thisform.height
ENDDEFINE

FUNCTION MYFU
RETURN IIF(id% 2 = 0 , 'chkb1', 'chkb2')