ok.. era abbastanza facile.. ma non ci riuscivo

codice:
           
            If screen < 10 Then
                Set orario = gate1.ListItems.Add(, , cel)
                orario.SubItems(1) = screen
            Else
                Set orario = gate2.ListItems.Add(, , cel)
                orario.SubItems(1) = screen
            End If
            
          index = index + 1
        End If
    Next d
Next l

Call ColoraUguali(ListView1)


End Sub

Sub ColoraUguali(ByVal lista As ListView)

For i = 2 To lista.ListItems.Count
 If lista.ListItems.Item(i) = lista.ListItems.Item(i - 1) Then
    lista.ListItems.Item(i).ForeColor = vbRed
    'lista.ListItems.SubItems.ForeColor = vbRed
    
 End If
Next i
    
 

End Sub
..Ma per colorare anche il subitem??

Ciao