改变VB listview 某一行背景色问题

'参考代码
Private Sub Form_Load()
With ListView1
.View = lvwReport
.GridLines = True
.FlatScrollBar = False
.FullRowSelect = True

.ColumnHeaders.Add , "A", "111", 1000
.ColumnHeaders.Add , "B", "222", 1000
.ColumnHeaders.Add , "C", "333", 1000
End With
End Sub

Private Sub Command1_Click()
Dim i As Long
With ListView1
With .ListItems.Add
.ForeColor = RGB(255, 0, 0)
.Text = "123"
For i = 1 To ListView1.ColumnHeaders.Count - 1
.SubItems(i) = "123"
.ListSubItems(i).ForeColor = RGB(255, 0, 0)
Next i
End With
End With
End Sub

Private Sub Command2_Click()
Dim i As Long
With ListView1
With .ListItems.Add
.ForeColor = RGB(0, 0, 255)
.Text = "234"
For i = 1 To ListView1.ColumnHeaders.Count - 1
.SubItems(i) = "234"
.ListSubItems(i).ForeColor = RGB(0, 0, 255)
Next i
End With
End With
End Sub