BoldDeskPremium customer service software with affordable pricing: $10 for 3 agents. Try it for free.
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