ListView1.OwnerDraw = True

Private Sub ListView1_DrawSubItem(ByVal sender As Object, _
                                      ByVal e As System.Windows.Forms. _
                                      DrawListViewSubItemEventArgs) _
                                      Handles ListView1.DrawSubItem
 
        Dim flags As TextFormatFlags = TextFormatFlags.Left
 
        If e.ColumnIndex = 0 Then
            If ListView1.Items(e.ItemIndex).SubItems(4).Text.Length > 0 Then
               e.Graphics.DrawImage(Me.ImageList1.Images(6), New Point( _
                 e.Bounds.X, e.Bounds.Y + 2))
            Else
               e.DrawText(flags)
            End If
        ElseIf e.ColumnIndex = 1 Then
            If ListView1.Items(e.ItemIndex).SubItems(5).Text.Length > 0 Then
               e.Graphics.DrawImage(Me.ImageList1.Images(7), New Point( _
                 e.Bounds.X, e.Bounds.Y + 2))
            Else
                e.DrawText(flags)
            End If
        Else
            e.DrawText(flags)
        End If
    End Sub

Private Sub ListView1_DrawItem(ByVal sender As Object, _
    ByVal e As DrawListViewItemEventArgs) _
    Handles ListView1.DrawItem
 
        Dim flags As TextFormatFlags = TextFormatFlags.Left
 
        If Not (e.State And ListViewItemStates.Selected) = 0 Then
            e.Graphics.FillRectangle(Brushes.Blue, e.Bounds)
            e.DrawFocusRectangle()
 
        Else
 
            'ListView1.BeginUpdate()
            With ListView1.Items
                For i As Integer = 1 To .Count
                    'If i Mod 2 = 0 Then e.Graphics.FillRectangle(Brushes.Cyan, 
                    ' e.Bounds)
                    'With .Item(i - 1)
                    e.Graphics.FillRectangle(Brushes.Gray, e.Bounds)
                    '    End With
                Next
            End With
            'ListView1.EndUpdate()
 
            Label1.Text = "Anzahl ListViewzeilen = " & ListView1.Items.Count
        End If
 
        ' Draw the item text for views other than the Details view.
        If Not Me.ListView1.View = View.Details Then
            e.DrawText(flags)
        End If
 
    End Sub

VG

Dirk