Mantaining multiple CSS based on different color schemes

' **************************************
' *  This code is by Alberto Venditti  *
' *    alberto_venditti@hotmail.com    *
' *             April 2004             *
' **************************************
Option Strict Off
Option Explicit On 

Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms


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
      Dim col As Color
      o = Me.GetColumnValueAtRow(source, rowNum)
      If (Not (o) Is Nothing) Then
        Dim c As String = CType(o, String)
        col = HexToColor(c)
        backBrush = New SolidBrush(col)
        'backBrush = New LinearGradientBrush(bounds, Color.FromArgb(255, 200, 200), Color.FromArgb(128, 20, 20), LinearGradientMode.BackwardDiagonal)
        foreBrush = New SolidBrush(col)
      End If
    Finally
      MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, alignToRight)
    End Try
  End Sub

  Private Function HexToColor(ByVal c As String) As Color
    Dim r, g, b As Integer
    r = Int32.Parse(c.Substring(1, 2), System.Globalization.NumberStyles.HexNumber)
    g = Int32.Parse(c.Substring(3, 2), System.Globalization.NumberStyles.HexNumber)
    b = Int32.Parse(c.Substring(5, 2), System.Globalization.NumberStyles.HexNumber)
    Return Color.FromArgb(r, g, b)
  End Function

End Class