SELECT .f. as "Select",* ; from home()+"samples\data\employee" ; nofilter ; into cursor TmpCursor USE dbf("TmpCursor") in 0 again alias myCursor USE in "TmpCursor" oForm = createobject("Form") WITH oForm .Height = 400 .Width = 600 .AddObject("CloseButton","myClose") WITH .CloseButton .Top = .Parent.Height - .Height - 5 .Left = .Parent.Width - .Width - 5 .visible = .t. ENDWITH .Addobject("myGrid","Grid") WITH .myGrid .Top = 1 .Left = 1 .Height = .parent.CloseButton.Top - 10 .Width = .Parent.Width - 2 .RecordsourceType = 1 .Recordsource = "myCursor" WITH .Columns(1) .Addobject("myCheckBox","Checkbox") WITH .myCheckBox .Caption = "" ENDWITH .CurrentControl = "myCheckbox" .Sparse = .f. ENDWITH .Visible = .t. ENDWITH .Show ENDWITH READ events DEFINE class myClose as Commandbutton Caption = "Close" PROCEDURE click thisform.release Clear events ENDPROC ENDDEFINECetin