Code Snippet
Private Sub dataGridView1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
If e.KeyData = Keys.Enter Then
Dim rowCount As Integer = dataGridView1.RowCount
Dim columnCount As Integer = dataGridView1.ColumnCount
Dim currentRowIndex As Integer = dataGridView1.CurrentCell.RowIndex
Dim currentColumnIndex As Integer = dataGridView1.CurrentCell.ColumnIndex
Dim nextRowIndex As Integer = currentRowIndex
Dim nextColumnIndex As Integer = currentColumnIndex
If currentColumnIndex + 1 > columnCount - 1 Then
currentColumnIndex = 0
If nextRowIndex + 1 < rowCount - 1 Then
nextRowIndex += 1
End If
Else
nextColumnIndex += 1
End If
Me.dataGridView1.CurrentCell = Me.dataGridView1(nextColumnIndex, nextRowIndex)
End If
End Sub