Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        Dim Backcolor As Color
        Dim Fontcolor As Brush
 
        If Not (e.State And DrawItemState.Selected) = DrawItemState.Selected _
          Then
            Select Case (e.Index)
                Case 0
                    Backcolor = Color.Red
                    Fontcolor = New SolidBrush(Color.White)
                Case 1
                    Backcolor = Color.Orange
                    Fontcolor = New SolidBrush(Color.Black)
                Case 2
                    Backcolor = Color.Purple
                    Fontcolor = New SolidBrush(Color.White)
                Case Else
                    Backcolor = Color.White
                    Fontcolor = New SolidBrush(Color.Black)
            End Select
            e.Graphics.FillRectangle(New SolidBrush(Backcolor), e.Bounds)
        Else
            Fontcolor = New SolidBrush(Color.White)
            e.DrawBackground()
        End If
        e.Graphics.DrawString(ListBox1.Items(e.Index), e.Font, Fontcolor, New _
          RectangleF(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height))
        e.DrawFocusRectangle()
    End Sub