Private Sub DataGridView_MouseMove(sender As Object, e As _
  System.Windows.Forms.MouseEventArgs) Handles DataGridView.MouseMove
        Dim DGV As DataGridView = Me.DataGridView
        Dim P As Point = DGV.PointToClient(System.Windows.Forms.Cursor.Position)
        Dim Hit As DataGridView.HitTestInfo = DGV.HitTest(P.X, P.Y)
 
        If DGV.RowCount > 1 And Hit.RowIndex >= 0 Then DGV.Rows( _
          Hit.RowIndex).Selected = True
 
End Sub