Public Class ColorDataGridTextBoxColumn
    Inherits DataGridTextBoxColumn
    Dim _BackColor, _ForeColor As Color
 
    Public Property BackColor() As Color
        Get
            Return _BackColor
        End Get
        Set(ByVal Value As Color)
            _BackColor = Value
        End Set
    End Property
 
    Public Property ForeColor() As Color
        Get
            Return _ForeColor
        End Get
        Set(ByVal Value As Color)
            _ForeColor = Value
        End Set
    End Property
 
    Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds _
      As Rectangle, _
        ByVal source As CurrencyManager, ByVal rowNum As Integer, ByVal _
        backBrush As Brush, _
        ByVal foreBrush As Brush, ByVal alignToRight As Boolean)
 
        backBrush = New SolidBrush(_BackColor)
        foreBrush = New SolidBrush(_ForeColor)
        MyBase.TextBox.BackColor = _BackColor
 
        MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, _
          alignToRight)
 
    End Sub
 
 End Class