Dim nCol
Dim nRow
 
nRow = GrdK.Row
nCol = GrdK.Col
 
Select Case KeyCode
	Case 37
          		KeyCode = 0
          		GrdK.SendKeys 9, 1
	Case 38 
		KeyCode = 0
          		GrdK.UpdateRow
          		GrdK.DoEdit nRow - 1, nCol
	Case 39 
          		KeyCode = 0
          		GrdK.SendKeys 9, 0
	Case 40
          		KeyCode = 0
          		GrdK.UpdateRow
          		GrdK.DoEdit nRow + 1, nCol
End Select