[سامي محمد]

كود :

 Dim i As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'كود الانتقال الى موضع السطر المحدد في الداتا
        DataGridView1.FirstDisplayedScrollingRowIndex = i
        'كود تظليل السطر
        DataGridView1.Rows(i).Selected = True
    End Sub
    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        'متغير يتم حفظ قيمة الاندكس الخاص بالسطر الذي تم النقر عليه
        i = e.RowIndex
    End Sub