Push Key Clear On Key Label F5 _Screen.ActiveForm.Grid1.Column1.Editbox1.SelStart=3 o=NewObject("form1") o.Show(1) Pop Key Define Class form1 As Form Width=500 Height=300 Add Object Grid1 As MyGrid Add Object Checkbox1 As Checkbox With Top=210, Caption='Sparse', Value=.T. Add Object Label1 As Label With AutoSize=.T.,Top=230; , Caption='Push F5 to run "_Screen.ActiveForm.Grid1.Column1.Editbox1.SelStart=3"' Procedure Load Create Cursor Test (f1 m) Insert Into Test Values ('Text Line 1') Insert Into Test Values ('Text Line 2') Go Top Function Checkbox1.InteractiveChange Thisform.Grid1.Column1.Sparse=This.Value Thisform.Grid1.Column1.SetFocus EndDefine Define Class MyGrid As Grid Height = 200 RowHeight = 60 Add Object Column1 As EditColumn EndDefine Define Class EditColumn As Column Add Object Header1 As Header Add Object Editbox1 As EditBox EndDefineBen