Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
With ListView1
For i = 1 To 7
For k = 1 To .ColumnHeaders.Count - 1
.ListItems(i).ForeColor = RGB(200, 0, 100)
.ListItems(i).ListSubItems(k).ForeColor = RGB(200, 0, 100)
Next k
Next i
End With
End Sub
Private Sub ListView1_DblClick()
With ListView1
For i = 1 To 7
For k = 1 To .ColumnHeaders.Count - 1
.ListItems(i).ForeColor = RGB(0, 0, 0)
.ListItems(i).ListSubItems(k).ForeColor = RGB(0, 0, 0)
Next k
Next i
End With
End Sub