Enter вместо Tab при работе с Datagridview

     Private Sub frmCMCaseIndexes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AnswerStr = ""
        DisplayAll()
        If AnswerStr <> "" Then
            Me.Close()
        End If
    End Sub
 
    Sub DisplayAll()
        SqlStatement = "Select dk_key AS 'CASE #', item_no As 'ITEM #', p_d As 'P/D', atty AS 'ATTY', "
        SqlStatement &= "index_date As 'FILED', index_desc As 'CASE INDEX DESCRIPTION' From "
        SqlStatement &= CaseIndexTable & " Where dk_key = '" & CaseNo & "' Order By index_date"
        Dim sqlConn As SqlConnection = New SqlConnection(connStringCM)
        sqlConn.Open()
        Dim sqlCom As SqlCommand = New SqlCommand(SqlStatement, sqlConn)
        Dim dr As SqlDataReader = sqlCom.ExecuteReader
        Dim dt As DataTable = New DataTable
        dt.Load(dr)
        DataGridView1.DataSource = dt
        dt.Dispose()
        dr.Dispose()
        sqlCom.Dispose()
        sqlConn.Dispose()
        'MessageBox.Show(DataGridView1.RowCount.ToString)
        DataGridView1.Columns(0).Width = 70
        DataGridView1.Columns(1).Width = 75
        DataGridView1.Columns(2).Width = 45
        DataGridView1.Columns(3).Width = 60
        DataGridView1.Columns(4).Width = 70
        DataGridView1.Columns(5).Width = 420
        DataGridView1.Columns(0).ReadOnly = True
        DataGridView1.Columns(1).ReadOnly = True
        DataGridView1.Columns(2).ReadOnly = True
        DataGridView1.Columns(3).ReadOnly = True
        DataGridView1.Columns(4).ReadOnly = True
        'DataGridView1.Columns(3).DefaultCellStyle.Format = 
    End Sub
 
    Private Sub cmdAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        AddMode = True
        SqlStatement = "Insert into " & CaseIndexTable & "(dk_key, index_date) Values ('"
        SqlStatement &= CaseNo & "', '" & Today & "')"
        connAdapterCM.SelectCommand.CommandText = SqlStatement
        connAdapterCM.SelectCommand.ExecuteNonQuery()
        DisplayAll()
        DataGridView1.Columns(2).ReadOnly = False
        DataGridView1.Columns(3).ReadOnly = False
        DataGridView1.Columns(4).ReadOnly = False
        Rowindex = DataGridView1.RowCount - 2
        DataGridView1.CurrentCell = DataGridView1.Rows(Rowindex).Cells(2)
        DataGridView1.Focus()
    End Sub
 
 
    Private Sub DataGridView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim ri As Integer = DataGridView1.CurrentCell.RowIndex
            Dim ci As Integer = DataGridView1.CurrentCell.ColumnIndex
 
            e.SuppressKeyPress = True
            If DataGridView1.Columns.Count > ci + 1 Then
                DataGridView1.CurrentCell = DataGridView1.Rows(ri).Cells(ci + 1)
                Exit Sub
            Else
                DataGridView1.CurrentCell = DataGridView1.Rows(ri + 1).Cells(5)
            End If
        End If
 
    End Sub

    Private Sub dgvParts_EditingControlShowing(sender As Object, e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvParts.EditingControlShowing
        If dgvParts.CurrentCell.ColumnIndex = 5 Then
            Dim textBoxCell As TextBox = CType(e.Control, TextBox)
            AddHandler textBoxCell.KeyPress, AddressOf textBoxCell_KeyPress
            AddHandler textBoxCell.KeyDown, AddressOf textBoxCell_KeyDown
        End If
    End Sub
    Private Sub textBoxCell_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If dgvParts.CurrentCell.ColumnIndex = 5 Then
            If Char.IsNumber(e.KeyChar) = True Or e.KeyChar = ChrW(Keys.Back) Then
                e.Handled = False
            Else
                MessageBox.Show("Ошибка! Поле 'Цена' должно содержать число.", "Ошибка!")
                e.Handled = True
            End If
        End If
    End Sub

Private Sub textBoxCell_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
      'Ваш код при нажатии Enter
End Sub

Imports System.Runtime.InteropServices
 
Public Class Form1
 
    <DllImport("user32.dll")> _
    Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    End Function
    <DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function GetForegroundWindow() As IntPtr
    End Function
    <DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function GetWindowThreadProcessId(ByVal hwnd As IntPtr, _
                          ByRef lpdwProcessId As Integer) As Integer
    End Function
 
    'Проверяет активно ли окно.
    Private Function ActiveApp() As Boolean
        Dim RunnungAppProcessID As UInteger = 0
        Dim CurrentProcessID As UInteger = 0
        Dim HWND As IntPtr
        Dim HWNDWindow As IntPtr
 
        HWNDWindow = GetForegroundWindow()
        HWND = Me.Handle
        GetWindowThreadProcessId(HWND, RunnungAppProcessID)
        GetWindowThreadProcessId(GetForegroundWindow(), CurrentProcessID)
        If RunnungAppProcessID = CurrentProcessID Then
            Return True
        Else
            Return False
        End If
    End Function
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Ну проверять я буду в таймере а ты уж по своему).
        If ActiveApp() = True Then
            If GetAsyncKeyState(Keys.Enter) <> 0 Then
                MsgBox("Вы нажали Enter.")
            End If
        End If
    End Sub
 
End Class

if e.keychar = Keys.Enter then
     '...
End If

Private Sub textBoxCell_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter Then
 
        End If
    End Sub

  Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        If DataGridView1.CurrentCell.ColumnIndex = 3 Then
            DataGridView1.Rows(e.RowIndex).Cells(3).Value = DataGridView1.Rows(e.RowIndex).Cells(3).Value.ToString.ToUpper
            Dim ri As Integer = DataGridView1.CurrentCell.RowIndex
            Dim ci As Integer = DataGridView1.CurrentCell.ColumnIndex
 
            ' Пытаюсь вернуться на старую строку
             If DataGridView1.Columns.Count > ci + 1 Then
                DataGridView1.CurrentCell = DataGridView1.Rows(ri - 1).Cells(ci + 1)
                Exit Sub
            End If
         End If
    End Sub

Public NotInheritable Class MyDataGridView
   Inherits DataGridView
 
 Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
   If keyData = Keys.Enter Then
  Me.OnKeyPress(New KeyPressEventArgs("r"c))
  Return True
   Else
  Return MyBase.ProcessCmdKey(msg, keyData)
   End If
 End Function
  End Class   
 
 Private Sub myDataGridView1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
        If e.KeyChar = "r"c Then
            Dim dgv As DataGridView = TryCast(sender, DataGridView)
            Dim cell As DataGridViewCell = dgv.CurrentCell
            If cell.IsInEditMode Then
                ' event to fire
            End If
        End If
    End Sub               ' using this code in the form with the new DataGridView you created