Выделенную строку DataGridView переместить вниз на одну позицию

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dgv As DataGridView = DataGridView1
        Dim rowIndex As Integer = dgv.CurrentCell.RowIndex
        If rowIndex = dgv.Rows.Count - 1 Then
            Return
            'Exit Sub
        End If
            Dim colIndex As Integer = dgv.CurrentCell.ColumnIndex
            Dim selectedRow As DataGridViewRow = dgv.Rows(rowIndex)
            dgv.Rows.Remove(selectedRow)
            dgv.Rows.Insert(rowIndex + 1, selectedRow)
            dgv.ClearSelection()
            dgv.Rows(rowIndex + 1).Cells(colIndex).Selected = True
    End Sub

'
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
DataGridView1.MultiSelect = False
'
'движение вниз
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    Dim rw As Integer = DataGridView1.SelectedRows(0).Index
    If rw = DataGridView1.RowCount - 2 Then Exit Sub
    DataGridView1.Rows(rw + 1).Selected = True
End Sub