Private Sub Form_Load()
ListView1.Checkboxes = True
ListView1.ColumnHeaders.Add , , "I"
For i = 1 To 10
ListView1.ListItems.Add , , "color" & i
Next
ListView1.View = 2
ListView1.ListItems(3).ForeColor = vbRed
ListView1.ListItems(7).ForeColor = vbBlue
End Sub