Imports System.Drawing
Public Class DataGridColoredTextBoxColumn
    Inherits DataGridTextBoxColumn
    Public Sub New()
    End Sub
    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)
        Try
            Dim o As Object
            o = Me.GetColumnValueAtRow(source, rowNum)
            If (Not (o) Is Nothing) Then
                Dim c As Char
                c = CType(o, String).ToString()
                If (c <> "0") Then
                    backBrush = New SolidBrush(Color.Red)
                    foreBrush = New SolidBrush(Color.White)
                ElseIf (c = "0") Then
                    backBrush = New SolidBrush(Color.White)
                    foreBrush = New SolidBrush(Color.White)
                End If
            End If
        Catch ex As Exception
        Finally
            MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, _
              alignToRight)
        End Try
    End Sub
End Class