Public Class myListview
 
    ' erben von System.Windows.Forms.Listview
    Inherits System.Windows.Forms.ListView
 
#Region "Propertys"
 
    Private varFarbzeilen As Boolean ' farbige Zeilen erlaubt Ja/Nein
    Private varColor As System.Drawing.Color   ' Farbe
 
    ' farbige Zeilen erlaubt Ja/Nein
    Public Property Farbige_Zeilen() As Boolean
        Get
            Return varFarbzeilen
        End Get
        Set(ByVal value As Boolean)
            varFarbzeilen = value
        End Set
    End Property
 
    ' Farbe für negative Zahlen
    Public Property Farbe_für_Zeilen() As System.Drawing.Color
        Get
            Return varColor
        End Get
        Set(ByVal Value As System.Drawing.Color)
            varColor = Value
        End Set
    End Property
 
#End Region
 
#Region " Vom Windows Form Designer generierter Code "
 
    Public Sub New()
        MyBase.New()
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
        Me.varColor = System.Drawing.Color.Red
        Me.View = Windows.Forms.View.Details
        Me.GridLines = True
    End Sub
 
    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    ' HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer 
    ' erforderlich
    ' Sie kann mit dem Windows Form-Designer modifiziert werden.
    ' Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Private Sub InitializeComponent()
        components = New System.ComponentModel.Container
    End Sub
 
#End Region
 
#Region " My Code"
 
    Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
 
        If Me.View = Windows.Forms.View.Details Then
            If Farbige_Zeilen = True Then
                On Error GoTo Ende
                With Me.Items
                    If .Count > 1 Then
                        For i As Integer = 0 To .Count - 1
                            i += 1
                            ' Alle Items wieder färben
                            .Item(i).BackColor = varColor
                        Next
                    End If
                End With
            End If
        End If
Ende:
    End Sub
 
#End Region
 
End Class

fg viperbone