Option Explicit On
Option Strict On
Public Class Form1
    '// [..]
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        fill()
    End Sub
 
    '// Füllen
    Private Sub fill()
        Me.ListBox1.DrawMode = DrawMode.OwnerDrawFixed
        For a As Integer = 1 To 10
            Me.ListBox1.Items.Add("Item" + a.ToString)
        Next
    End Sub
 
    '// DrawItem Event anpassen
    Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        Dim obj As Object = Me.ListBox1.Items.Item(e.Index)
        Dim brush As System.Drawing.Brush
        e.DrawBackground()
        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then _
          '// Selected?
            brush = System.Drawing.Brushes.LightGreen '// Selected- Farbe
        Else
            brush = System.Drawing.Brushes.LightCoral '// Standard-Farbe
        End If
        e.Graphics.FillRectangle(brush, e.Bounds)
        e.Graphics.DrawString(obj.ToString, Me.ListBox1.Font, Brushes.White, _
          e.Bounds.X, e.Bounds.Y)
    End Sub
End Class