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)
 
        Dim br As SolidBrush = backBrush
 
        If br.Color.ToArgb <> SystemColors.Highlight.ToArgb Then
            backBrush = New SolidBrush(_BackColor)
            foreBrush = New SolidBrush(_ForeColor)
            MyBase.TextBox.BackColor = _BackColor
        End If
 
        MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, _
          alignToRight)
 
    End Sub