ИнтеллигенцияX

Пример взят с MSDN

Public Class Form1
    Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        'Рисуем фон элемента управления ListBox для каждого элемента.
        e.DrawBackground()
        'Цвет кисти по умолчанию черный
        Dim myBrush As Brush = Brushes.Black
        'Задаем цвет для трех итемов
        Select Case e.Index
            Case 0
                myBrush = Brushes.Red
            Case 1
                myBrush = Brushes.Orange
            Case 2
                myBrush = Brushes.Purple
        End Select
        'Рисуем текст.
        e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), e.Font, myBrush, e.Bounds, StringFormat.GenericDefault)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.DrawMode = DrawMode.OwnerDrawFixed 'Задаем режим для рисования элемента
        ListBox1.Items.AddRange({"VB.NET", "C#.NET", "F#.NET"})
    End Sub
End Class