I tried the following and I received an error msg which stated that currentcontrol has evaluated to an illegal value:

WITH ThisForm
IF NOT EMPTY(lcModule)
SELECT ;
.F. AS Selected, ;
Table ;
FROM SysMTbls ;
WHERE SysMTbls.ModID = lcModule ;
INTO CURSOR tmpTables

*.grdTables.RecordSource = "tmpTables"
.grdTables.ColumnCount = 2
.grdTables.Column1.Width = 75
.grdTables.Column1.Header1.Caption = "Select"
*.grdTables.Column1.AddObject("chkSelected", "cc_chkBox")
*.grdTables.Column1.chkSelected.Visible = .T.
.grdTables.Column1.CurrentControl = "chkSelected"
.grdTables.Column1.Sparse = .F. && Make the check Box show up in all rows.
.grdTables.Column2.Header1.Caption = "Table Name"
.grdTables.Column2.Width = 120
ENDIF
ENDWITH