Ciao printlist,
dopo aver caricato i rs nella LV:
codice:
' Colora gli Items:
            Dim i As Integer
            Dim LI As ListItem
            For i = 1 To FrmTua.LvTua.ListItems.Count
                Set LI = FrmTua.LvTua.ListItems(i)
                With LI
                    .ForeColor = rgb(255, 0, 0)
                    ' Colore Bleu:
                    .ListSubItems(10).ForeColor = rgb(30, 45, 250)
                    .ListSubItems(11).ForeColor = rgb(30, 45, 250)
                    .ListSubItems(12).ForeColor = rgb(30, 45, 250)
                    ' Colore Rosso:
                    .ListSubItems(13).ForeColor = rgb(255, 0, 0)
                    '.ListSubItems(13).Bold = True
                    .ListSubItems(14).ForeColor = rgb(255, 0, 0)
                    .ListSubItems(15).ForeColor = rgb(255, 0, 0)
                End With
            Next