GridView Navigation Problem

Option Explicit On
 
Public Class frmMain
 
    Dim intCurrentRow As Integer = 0
    Dim intCurrentColumn As Integer = 0
 
    Delegate Sub SetColumnIndex(ByVal i As Integer)
    
    Private Sub Create_Grid_Column()
 
        Dim dgvItemCode As New DataGridViewTextBoxColumn
 
        Add_Column("ItemCode", "Code", 0, dgvItemCode, DataGridView1)
 
        Dim dgvItemName As New DataGridViewTextBoxColumn
        Add_Column("ItemName", "Name", 1, dgvItemName, DataGridView1)
 
        Dim dgvItemQty As New DataGridViewTextBoxColumn
        Add_Column("ItemQty", "Qty", 2, dgvItemQty, DataGridView1)
 
    End Sub
 
    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Me.StartPosition = FormStartPosition.CenterScreen
 
        With DataGridView1
            .EditMode = DataGridViewEditMode.EditProgrammatically
            .AllowUserToAddRows = False
        End With
 
        Create_Grid_Column()
 
        Add_Row(DataGridView1)
        Add_Row(DataGridView1)
 
    End Sub
 
    Private Sub DataGridView1_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles DataGridView1.CellBeginEdit
 
        With DataGridView1
 
            If e.RowIndex <> intCurrentRow Then
 
                intCurrentColumn += 1
                Dim method As New SetColumnIndex(AddressOf Grid_Navigation)
 
                Me.DataGridView1.BeginInvoke(method, intCurrentRow)
 
            End If
 
            .Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = Color.FromArgb(255, 128, 0)
 
        End With
 
    End Sub
 
    Private Sub Grid_Navigation(ByVal RowIndex As Integer)
        With DataGridView1
 
            If .CurrentCell.ColumnIndex < .Columns.Count - 1 Then
                .CurrentCell = DataGridView1.Rows(RowIndex).Cells(intCurrentColumn)
            Else
                intCurrentRow += 1
                .CurrentCell = DataGridView1.Rows(intCurrentRow).Cells(0)
            End If
 
            .BeginEdit(True)
 
        End With
 
    End Sub
 
    Private Sub DataGridView1_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEnter
        With DataGridView1
            .BeginEdit(True)
        End With
    End Sub
 
    Private Sub DataGridView1_CellLeave(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellLeave
 
        With DataGridView1
            .Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = Color.White
        End With
 
    End Sub
 
    Public Sub Add_Column(ByVal strColumnName As String, _
                             ByVal strHeaderName As String, _
                             ByVal intDisplayIndex As Integer, _
                             ByVal dgvTextColumn As DataGridViewTextBoxColumn, _
                             ByVal dgvName As DataGridView)
 
        With dgvName
 
            dgvTextColumn.DisplayIndex = intDisplayIndex
            dgvTextColumn.HeaderText = strHeaderName
            dgvTextColumn.DataPropertyName = strColumnName
            dgvTextColumn.Name = strColumnName
 
            .Columns.Add(dgvTextColumn)
 
        End With
 
    End Sub
 
    Public Sub Add_Row(ByVal dgvName As DataGridView)
 
        With dgvName
            .Rows.Add()
        End With
 
    End Sub
   
End Class