PUBLIC oForm oForm = CREATEOBJECT('TestForm') oForm.Show() RETURN DEFINE CLASS TestForm as Form AutoCenter = .T. PROCEDURE Load LOCAL i CREATE CURSOR temp (test C(10)) FOR i = 1 TO 10 INSERT INTO temp VALUES (SYS(2015)) ENDFOR SELECT *, ; TYPE('temp.test') = 'N' ; from temp INTO CURSOR SQLResult READWRITE ENDPROC ADD OBJECT Grid1 as Grid WITH ; Left = 5, Top = 5, ; ColumnCount = 2, ; RecordSource = 'SQLResult' PROCEDURE Grid1.Init WITH This.Column2 .AddObject('Check1','Checkbox') .CurrentControl = 'Check1' .Sparse = .F. .Check1.Visible = .T. ENDWITH ENDDEFINE