DataGridViewの行移動

Private Sub btnPREV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPREV.Click
If dgvSHITEKI.CurrentRow.Index <> 0 Then
'先頭行でない
dgvSHITEKI.CurrentCell = dgvSHITEKI(2, dgvSHITEKI.CurrentRow.Index - 1)
End If
End Sub

Private Sub btnNEXT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNEXT.Click
If dgvSHITEKI.Rows.Count > dgvSHITEKI.CurrentRow.Index + 1 Then
dgvSHITEKI.CurrentCell = dgvSHITEKI(2, dgvSHITEKI.CurrentRow.Index + 1)
End If
End Sub