怎么让FLEXGRID的某一行显示不同的颜色？？

[summer123]

RT

[射天狼]

Option Explicit

Dim lngOldRow As Long

Private Sub Form_Load()
Dim i As Long

MSFlexGrid1.Rows = 10: MSFlexGrid1.Cols = 5

For i = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.TextMatrix(i, 1) = "aaaa" & i
Next

MSFlexGrid1.SelectionMode = flexSelectionByRow
End Sub

Private Sub MSFlexGrid1_Click()
MSFlexGrid1.Redraw = False
Dim i As Long, lngNewRow As Long

lngNewRow = MSFlexGrid1.Row
MSFlexGrid1.Row = lngOldRow
For i = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i
MSFlexGrid1.CellBackColor = vbWhite
Next

MSFlexGrid1.Row = lngNewRow
For i = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i
MSFlexGrid1.CellBackColor = vbRed
Next
MSFlexGrid1.Redraw = True

lngOldRow = lngNewRow
End Sub