Berpindah Kolom pada baris yang sama di datagridview

Public Class Form1

Public IdxRow As SByte
Public IdxCol As SByte

Sub lanjut()
IdxRow = Datagridview1.CurrentCell.RowIndex - 1
IdxCol = Datagridview1.CurrentCell.ColumnIndex
End Sub

Private Sub dg_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dg.CellEnter
lanjut()
End Sub

Private Sub Datagridview1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dg.KeyUp
If e.KeyCode = Keys.Enter And posCol <>
Datagridview1.CurrentCell = DataGridview1(IdxCol + 1, IdxRow)
Else
Datagridview1.CurrentCell = Datagridview1(0, IdxRow + 1)
End If
End Sub

End Class