Prova con
codice:With L_DL.ListItems(1) .ForeColor = vbGreen For i = 1 To .ListSubItems.Count .ListSubItems(i).ForeColor = vbGreen Next i End With L_DL.Refresh
Prova con
codice:With L_DL.ListItems(1) .ForeColor = vbGreen For i = 1 To .ListSubItems.Count .ListSubItems(i).ForeColor = vbGreen Next i End With L_DL.Refresh