ListBox1.DrawMode = DrawMode.OwnerDrawFixed

 Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        ListBox1.DrawMode = DrawMode.OwnerDrawFixed
        ' Draw the background of the ListBox control for each item.
        e.DrawBackground()
        ' Create a new Brush and initialize to a Black colored brush by default.
        Dim myBrush As Brush
 
        ' Determine the color of the brush to draw each item based on the index 
        ' of the item to draw.
        Select Case (e.Index)
            Case 0
                myBrush = Brushes.Red
            Case 1
                myBrush = Brushes.Orange
            Case 2
                myBrush = Brushes.Purple
            Case Else
                myBrush = Brushes.Black
        End Select
 
        ' Draw the current item text based on the current Font and the custom 
        ' brush settings.
        e.Graphics.DrawString(ListBox1.Items(e.Index), e.Font, myBrush, New _
          RectangleF(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height))
        ' If the ListBox has focus, draw a focus rectangle around the selected 
        ' item.
        e.DrawFocusRectangle()
    End Sub