Private Sub dataGridView1_CellMouseMove(sender As Object, e As DataGridViewCellMouseEventArgs)
dataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = Color.Blue
End Sub
Private Sub DataGridView2_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles DataGridView2.KeyUp
Dim q As Integer = DataGridView2.CurrentRow.Index
Label6.Text = DataGridView2.Item(0, q).Value.ToString
Label1.Text = DataGridView2.Item(1, q).Value.ToString
Label2.Text = DataGridView2.Item(2, q).Value.ToString
Label3.Text = DataGridView2.Item(3, q).Value.ToString
End Sub