Private Sub gdbTelephone_DrawCellFrameAppearance(ByVal sender As Object, ByVal e As Syncfusion.Windows.Forms.Grid.GridDrawCellBackgroundEventArgs) Handles gdbTelephone.DrawCellFrameAppearance
Dim rowIndex As Integer = e.Style.CellIdentity.RowIndex
Dim colIndex As Integer = e.Style.CellIdentity.ColIndex
If rowIndex > 0 AndAlso colIndex <> 3 Then
Dim brush As Brush
Dim g As Graphics = e.Graphics
brush = New System.Drawing.Drawing2D.LinearGradientBrush(e.TargetBounds, Color.FromArgb(209, 211, 212), Color.FromArgb(209, 211, 212), 0.0F)
Dim rect As Rectangle = e.TargetBounds
rect.Inflate(-2, -2)
Dim rects As Rectangle() = New Rectangle() {New Rectangle(rect.X, rect.Y, rect.Width, 1), New Rectangle(rect.X, rect.Y, 1, rect.Height), New Rectangle(rect.Right - 1, rect.Y, 1, rect.Height), New Rectangle(rect.X, rect.Bottom - 1, rect.Width, 1)}
Dim blueBrush As New SolidBrush(Color.White)
g.FillRectangle(blueBrush, rect)
g.FillRectangles(brush, rects)
e.Cancel = True
End If
End Sub
