*Grid.brcc Lparameters nColIndex If nColIndex = This.ColumnCount And ; !Mdown() And (Readkey()=15 Or Inlist(Lastkey(),4,13,9)) With This.Columns(This.ColumnCount).Text1 .Value = .Value If Between(.Value,1,3) Keyboard '{DNARROW}' Else Nodefault Endif Endwith EndifCetin