Color List Box

Imports System.Drawing
Imports System.Windows.Forms
Public Class ColoredListBox
    Inherits System.Windows.Forms.ComboBox
    Dim WidthOfColorBar As Integer
    Private Function GetColor(ColorName As String) As Color
        Return Color.FromName(ColorName)
    End Function
    Public Sub SetTo(ColorName As String)
        Me.SelectedIndex = Me.FindStringExact(ColorName)
    End Sub
    Public ReadOnly Property SelectedColor(ColorName As String) As Color
        Get
            Try
                Return GetColor(ColorName)
            Catch ex As Exception

            End Try
        End Get
    End Property
    Public Property ColorBarWidth() As Integer
        Get
            Return WidthOfColorBar
        End Get
        Set(ByVal value As Integer)
            WidthOfColorBar = value
        End Set
    End Property
    Public Sub New()
        Me.AddKnownColors()
        WidthOfColorBar = 30
        Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
    End Sub
    Public Sub AddKnownColors()
        Me.Items.Clear()
        Dim colorTable As Color = New Color
        Dim t As Type = GetType(Color)
        Dim pis() As System.Reflection.PropertyInfo = t.GetProperties
        For Each pi As System.Reflection.PropertyInfo In pis
            If (pi.PropertyType Is GetType(Color)) Then
                Dim color As Color = CType(pi.GetValue(colorTable, Nothing), Color)
                AddItem(color.Name, color)
            End If
        Next
    End Sub
    Public Sub AddItem(ByVal Item As String, ByVal Color As Color)
        Me.Items.Add(Item)
    End Sub
    Private Sub ColoredComboBox_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
        Try
            If e.Index = -1 Then Exit Sub
            Dim sColor As String = Me.Items(e.Index)
            Dim brush1 As Brush = New SolidBrush(Color.FromName(sColor))
            Dim rect As Rectangle = e.Bounds
            e.Graphics.FillRectangle(New SolidBrush(sender.backcolor), rect)
            Dim highlightcolor As Color = SystemColors.Highlight
            If (e.State = DrawItemState.Focus) Or (e.State = DrawItemState.Selected) Or (e.State = DrawItemState.Selected + DrawItemState.Focus) Then
                e.Graphics.FillRectangle(New SolidBrush(highlightcolor), e.Bounds)
            Else
                e.Graphics.FillRectangle(New SolidBrush(sender.BackColor), e.Bounds)
            End If
            rect.Width = WidthOfColorBar
            rect.Height -= 4
            rect.X += 2
            rect.Y += 2
            e.Graphics.FillRectangle(brush1, rect)
            e.Graphics.DrawRectangle(Pens.Black, rect)
            e.Graphics.DrawString(sColor, sender.font, New SolidBrush(sender.forecolor), WidthOfColorBar + 5, rect.Y - 2)
            brush1.Dispose()
        Catch ex As Exception

        End Try
    End Sub
End Class

Try
    '...about 20 lines
Catch ex As Exception

End Try

e.Graphics.FillRectangle(New SolidBrush(highlightcolor), e.Bounds)

Dim myBrush As SolidBrush = new SolidBrush(highlightcolor)
e.Graphics.FillRectangle(myBrush, e.Bounds)
myBrush.Dispose()

public static class StringHelper
{
  #region ToWords
  const char SingleSpace = ' ';
  const char Underscore = '_';
  const char None = '\0';

  public static string ToWords(string value)
  {
    return ToWords(value, true);
  }

  public static string ToWords(string value, bool uppercaseBoundary)
  {
    var result = new StringBuilder();
    var inWord = false;

    var previousChar = None;

    for(var i = 0; i < value.Length; i++)
    {
      var currentChar = value[i];

      if (char.IsWhiteSpace(currentChar))
      {
        // Always replace whitespace with a space
        currentChar = SingleSpace;

        // Ignore runs of whitespace
        if (previousChar == SingleSpace) continue;  
      }

      // Special case substitution for underscore
      if (currentChar == Underscore)
      {
        // Make a note that an underscore was seen unless
        // if at the start of the string or preceeded by whitespace
        if (previousChar != None && previousChar != SingleSpace)
        {
          previousChar = Underscore;
        }

        // An underscore always stops any existing word
        inWord = false;

        continue;
      }

      // Check whether this is the start of a new word
      if (IsWordStartBoundary(previousChar, currentChar, inWord))
      {
        // It is, so insert a separator space if necessary
        if (RequiresWordSeparator(previousChar, currentChar))
        {
          result.Append(SingleSpace);
        }

        // Include the char with the appropriate case
        result.Append(uppercaseBoundary ? char.ToUpper(currentChar) : currentChar);

        inWord = true;
      }
      else
      {
        // Include the char as-is
        result.Append(currentChar);

        // Check whether still in a word
        inWord = char.IsLetter(currentChar);
      }

      // Note the previous char
      previousChar = currentChar;
    }

    return result.ToString();
  }

  static bool IsWordStartBoundary(char previousChar, char currentChar, bool inWord)
  {
    if (char.IsUpper(currentChar)) return true;
    if (char.IsLetter(currentChar)) return !inWord && !char.IsUpper(previousChar);
    if (char.IsDigit(currentChar)) return !char.IsDigit(previousChar);

    return false;
  }

  static bool RequiresWordSeparator(char previousChar, char currentChar)
  {
    if (previousChar == None || previousChar == SingleSpace) return false;
    if (previousChar == Underscore) return true;
    if (char.IsUpper(currentChar)) return char.IsLower(previousChar);
    if (char.IsDigit(currentChar)) return !char.IsDigit(previousChar);

    return !char.IsLower(currentChar);
  }
  #endregion ToWords
}