Ok, te intendi i subitems..Fai così:
codice:
Dim LI As ListItem
For i = 1 To lsvforn.ListItems.Count
    Set LI = lsvforn.ListItems(i)
        With LI
        .ForeColor = RGB(255, 0, 0)
        .Bold = True
        .ListSubItems(1).Bold = True
        .ListSubItems(1).ForeColor = RGB(255, 0, 0)
        .ListSubItems(2).Bold = True
        .ListSubItems(2).ForeColor = RGB(255, 0, 0)
        .ListSubItems(3).Bold = True
        .ListSubItems(3).ForeColor = RGB(255, 0, 0)
        End With
Next
Chiaramente visto che sapevi il numero esatto di colonne oltre alla prima ho scritto così, altrimenti oppure se il numero di colonne era grande sarei ricorso ad un ciclo for/next..

Ciao