For Each f1 In fc
            For iLauf = 0 To lauf
                If f1.Name = lstName(iLauf) And Val(f1.Size) = Val(lstGroesse( _
                  iLauf)) Then
                    useIcon = 1
                    Exit For
                Else
                    useIcon = 2
                End If
            Next
            itemx = List.ListItems.Add(, , f1.Name, , useIcon)
            Size = Str(Int(f1.Size / 1024))
            itemx.SubItems(0) = Size + " kb"
    Next