Private Sub filllistboxwithcolors()

  Me.ListBox1.DrawMode = DrawMode.OwnerDrawFixed

  Me.ListBox1.ItemHeight = 24

  '避免闪烁

  Me.ListBox1.BeginUpdate()

  ListBox1.Items.Clear()

  Dim pi As Reflection.PropertyInfo

 For Each pi In GetType(Color).GetProperties(Reflection.BindingFlags.Public Or Reflection.BindingFlags.Static)

   Me.ListBox1.Items.Add(pi.Name)

  Next

  ListBox1.EndUpdate()

End Sub

Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem

  Dim rect As Rectangle = e.Bounds '每一项的边框

  If e.State And DrawItemState.Selected Then

   e.Graphics.FillRectangle(SystemBrushes.Window, rect)

  End If

  Dim colorname As String = ListBox1.Items(e.Index)

  Dim b As New SolidBrush(Color.FromName(colorname))

  rect.Inflate(-16, -2)

  e.Graphics.FillRectangle(b, rect)

  e.Graphics.DrawRectangle(Pens.Black, rect)

  Dim b2 As Brush

  If CInt(b.Color.R) + CInt(b.Color.G) + CInt(b.Color.B) > 128 * 3 Then

   b2 = Brushes.Black

  Else

   b2 = Brushes.White

  End If

  e.Graphics.DrawString(colorname, Me.ListBox1.Font, b2, rect.X, rect.Y)

End Sub