[grimpmaster]

---

السلام عليكم إخواني
لقد تم الحل من طرف بعض الإخوة في منتدى أخر و إليكم الكود المتعلق بتلوين الكتابة في سطر الليستفيو و هذا للمشاركة و الإستفادة

Dim I As Integer, K%
 
   For I = 1 To lvStudentInfo.ListItems.Count
     For K = 1 To 6
       If lvStudentInfo.ListItems(I).ListSubItems(6).Text = "Enabled" Then
               lvStudentInfo.ListItems(I).ListSubItems(K).ForeColor = vbRed
               lvStudentInfo.ListItems(I).ForeColor = vbRed
 
       ElseIf lvStudentInfo.ListItems(I).ListSubItems(6).Text = "Disabled" Then
               lvStudentInfo.ListItems(I).ListSubItems(K).ForeColor = vbBlue
               lvStudentInfo.ListItems(I).ForeColor = vbBlue
       End If
     Next K
   Next I
   lvStudentInfo.Refresh
End Sub