Originariamente inviato da oregon
Beh ... non mi sembra difficile ... scrivo al volo ... controlla

codice:
If Left(REC, 6) = "APERTO" Then
  itmX.ForeColor = vbRed
  For i=1 to 5
    itmX.ListSubItems(i).ForeColor = vbRed
  Next i
Else
  itmX.ForeColor = vbBlue
  For i=1 to 5
    itmX.ListSubItems(i).ForeColor = vbBlue
  Next i
End If
ok .... ma non riesco a capire in quale parte del mio codice va inserito il tuo:-(