怎样可以为listbox的每行 定制 不同的颜色等属性？？

Question

用一个文本框，一个带箭头的按钮，一个pixcturebox，一个滚动条，就可以自己模拟了，想怎样就怎样

Answer 1

add的时候作一个对index的判断,根据index和某个数的余数来确定你要该颜色的那个行

Answer 2

我一般用LISTVIEW：Private Sub Command1_Click()
ListView1.ColumnHeaders.Add , , "I"
For i = 1 To 10
ListView1.ListItems.Add , , "SSS"
ListView1.ListItems(i).ForeColor = QBColor(i)
Next
ListView1.View = 2
End Sub