Push Key Clear On Key Label "S" _Screen.ActiveForm.Grid1.Column1.Editbox1.SelStart=3 ACTIVATE WINDOW "Debug Output" 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') Insert Into Test Values ('Text Line 3') 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 * Anchor = 15 Add Object Column1 As EditColumn PROCEDURE WHEN IF this.ActiveColumn>0 DEBUGOUT "ATTENTION, ON KEY LABEL FIRE ",PROGRAM() ENDIF EndDefine Define Class EditColumn As Column Add Object Header1 As Header Add Object Editbox1 As EditBox1 ENDDEFINE DEFINE CLASS EditBox1 AS EditBox ScrollBars = 0 PROCEDURE Value_Access DEBUGOUT "WHEN VFP access Value, it reset SelStart",PROGRAM(),RECNO() RETURN this.value ENDDEFINE