Private Sub ListView1_DrawSubItem(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.DrawListViewSubItemEventArgs) _
    Handles ListView1.DrawSubItem
 
        If e.ColumnIndex = 0 Then
            If ListView1.Items(e.ItemIndex).SubItems(4).Text.Length > 0 Then
                Dim ico As System.Drawing.Icon = My.Resources.Abbruch
                e.Graphics.DrawIcon(ico, e.Bounds.X, e.Bounds.Y)
            else
                e.Drawtext() 
            End If
        ElseIf e.ColumnIndex = 1 Then
            If ListView1.Items(e.ItemIndex).SubItems(5).Text.Length > 0 Then
                Dim ico As System.Drawing.Icon = My.Resources.OK
                e.Graphics.DrawIcon(ico, e.Bounds.X, e.Bounds.Y)
            else
                e.drawtext()
            End If
        else
            e.drawtext()  
        End If
    End Sub

 Private Sub ListView1_DrawColumnHeader _
 (ByVal sender As Object, _
    ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs) _
    Handles ListView1.DrawColumnHeader
 
        e.DrawText()
 
    End Sub