Imports System
Imports System.Drawing
Imports System.Windows.Forms
 
Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        ListBox1.DrawMode = DrawMode.OwnerDrawFixed
        With ListBox1.Items
            .Add("Green")
            .Add("Red")
            .Add("Blue")
            .Add("Magenta")
            .Add("Black")
            .Add("Yellow")
        End With
    End Sub
 
    Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        Dim Item As String = ListBox1.Items(e.Index).ToString()
        Dim hBrush As New SolidBrush(Color.FromName(Item))
        With e
            .DrawBackground()
            .DrawFocusRectangle()
            .Graphics.DrawString(Item, ListBox1.Font, hBrush, e.Bounds.X, _
              e.Bounds.Y)
        End With
        hBrush.Dispose()
    End Sub
End Class