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