You could try handling the grid''s paint event and do the drawing there yourself.
Private Sub gridControl1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles gridControl1.Paint
Dim range As GridRangeInfo = GridRangeInfo.Cells(11, 2, 11, 5)
Dim rect As Rectangle = Me.gridControl1.RangeInfoToRectangle(range)
If rect.IntersectsWith(e.ClipRectangle) Then
Dim br As New System.Drawing.Drawing2D.LinearGradientBrush(rect, Color.FromArgb(200, Color.Black), Color.FromArgb(100, Color.White), Drawing2D.LinearGradientMode.Horizontal)
e.Graphics.FillRectangle(br, rect)
br.Dispose()
End If
End Sub