Visual Basic

 Private Sub dgvOne_RowPrePaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPrePaintEventArgs) Handles dgvOne.RowPrePaint<br />
<br />
        ' Do not automatically paint the focus rectangle.<br />
        e.PaintParts = e.PaintParts And Not DataGridViewPaintParts.Focus<br />
<br />
        ' Determine whether the cell should be painted with the <br />
        ' custom selection background.<br />
<br />
        If (e.State And DataGridViewElementStates.Selected) = _<br />
            DataGridViewElementStates.Selected Then<br />
<br />
            ' Calculate the bounds of the row.<br />
            Dim rowBounds As New Rectangle( _<br />
                Me.dgvOne.RowHeadersWidth, e.RowBounds.Top, _<br />
                Me.dgvOne.Columns.GetColumnsWidth( _<br />
                DataGridViewElementStates.Visible) - _<br />
                Me.dgvOne.HorizontalScrollingOffset + 1, _<br />
                e.RowBounds.Height)<br />
<br />
            ' Paint the custom selection background.<br />
            Dim backbrush As New _<br />
                System.Drawing.Drawing2D.LinearGradientBrush(rowBounds, _<br />
                Me.dgvOne.DefaultCellStyle.SelectionBackColor, _<br />
                e.InheritedRowStyle.ForeColor, _<br />
                System.Drawing.Drawing2D.LinearGradientMode.Horizontal)<br />
            Try<br />
                e.Graphics.FillRectangle(backbrush, rowBounds)<br />
            Finally<br />
                backbrush.Dispose()<br />
            End Try<br />
        End If<br />
    End Sub

If (e.State And DataGridViewElementStates.Selected) = _<br />
    DataGridViewElementStates.Selected Then