'// Füllen
    Private Sub fill()
        Me.ListBox1.DrawMode = DrawMode.OwnerDrawFixed
        Me.ListBox1.Items.Add("Test1")
        Me.ListBox1.Items.Add("Test2")
        Me.ListBox1.Items.Add("Test3")
        Me.ListBox1.Items.Add("Test4")
    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