可以:
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
Private Sub Command2_Click()
ListView1.ListItems(5).Text = "ABCDE"
End Sub