*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
Endif