Перемещение по ячейкам DataGridView клавишей tab

AddHandler dg.SelectionChanged, AddressOf ProtFill_User.dgw_selectNext

Public Class ProtFill_User
Public Sub dgw_selectNext(sender As System.Object, e As System.EventArgs)
Dim dd As DataGridView = sender
For Each c As DataGridViewCell In dd.SelectedCells
dd.CurrentCell = dd.Item(dd.ColumnCount - 1, c.RowIndex)
dd.CurrentCell.Selected = True
Next
End Sub
End Class

    Private Sub DataGridView1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
        If e.KeyCode = Keys.Tab Then
            e.Handled = True
            If sender.CurrentRow.Index <> sender.Rows.Count - 1 Then
                sender.CurrentCell = sender(3, sender.CurrentRow.Index + 1)
            End If
        End If
    End Sub

  Private Sub DataGridView1_KeyDown(sender As Object, e As KeyEventArgs) Handles DataGridView1.KeyDown
        If e.KeyCode = Keys.Tab Then
            e.Handled = True
            If sender.CurrentRow.Index <> sender.Rows.Count - 1 Then
                sender.CurrentCell = sender(3, sender.CurrentRow.Index + 1)
            End If
        End If
    End Sub
 
    Private Sub DataGridView1_KeyUp(sender As Object, e As KeyEventArgs) Handles DataGridView1.KeyUp
        If e.KeyCode = Keys.Tab Then
            e.Handled = True
            If sender.CurrentRow.Index <> sender.Rows.Count Then
                sender.CurrentCell = sender(3, sender.CurrentRow.Index)
            End If
        End If
    End Sub