[VB6] Ordinamento e colorazione elementi uguali nel controllo ListView

[eternauta]

ecco la soluzione..

Call ColoraUguali(ListView1)
Call ColoraUguali(gate1)
Call ColoraUguali(gate2)

End Sub

Sub ColoraUguali(ByVal lista As ListView)
Dim app As ListItem


For i = 2 To lista.ListItems.Count


 If lista.ListItems.Item(i) = lista.ListItems.Item(i - 1) Then
    Set app = lista.ListItems.Item(i)
    app.ForeColor = vbRed
    app.ListSubItems(1).ForeColor = vbRed
    Set app = lista.ListItems(i - 1)
    app.ForeColor = vbRed
    app.ListSubItems(1).ForeColor = vbRed
 End If
Next i

se un giorno qualcuno ne avesse necessità