Move cursor in Datagrid Cell

[cfisher]

Private Sub dgName_KeyDown(KeyCode As Integer, Shift As Integer)
'Left Arrow
If KeyCode = 37 And txtArrowFlag = "True" Then
txtArrowFlag = "False"
SendKeys Chr$(13)
SendKeys "{Left}"
End If

'Up Arrow
If KeyCode = 38 And txtArrowFlag = "True" Then
txtArrowFlag = "False"
SendKeys Chr$(13)
SendKeys "{Up}"
End If

'Right Arrow
If KeyCode = 39 And txtArrowFlag = "True" Then
txtArrowFlag = "False"
SendKeys Chr$(13)
SendKeys "{Right}"
End If

'Down Arrow
If KeyCode = 40 And txtArrowFlag = "True" Then
txtArrowFlag = "False"
SendKeys Chr$(13)
SendKeys "{Down}"
End If
End Sub