关于Listview控件里的字体颜色

Question

如上图，我想把“B”整行的字体颜色变成红色，怎么做？

Answer 1

http://63.236.73.220/showthread.php?t=231157

Answer 2

写的这么清楚还看不懂？这个过程有3个参数，
第一个……ListView
第二个……行
第三个……颜色
Public Sub ColorListviewRow(lv As ListView, RowNbr As Long, RowColor As OLE_COLOR)
'***************************************************************************
'Purpose: Color a ListView Row
'Inputs : lv - The ListView
'         RowNbr - The index of the row to be colored
'         RowColor - The color to color it
'Outputs: None
'***************************************************************************
    
    Dim itmX As ListItem
    Dim lvSI As ListSubItem
    Dim intIndex As Integer
    
    On Error GoTo ErrorRoutine
    
    Set itmX = lv.ListItems(RowNbr)
    itmX.ForeColor = RowColor
    For intIndex = 1 To lv.ColumnHeaders.Count - 1
        Set lvSI = itmX.ListSubItems(intIndex)
        lvSI.ForeColor = RowColor
    Next    Set itmX = Nothing
    Set lvSI = Nothing
    
    Exit SubErrorRoutine:    MsgBox Err.DescriptionEnd Sub 

Answer 3

 ListView1.ListItems(ListView1.ListItems.Count).ListSubItems(XX).ForeColor = vbred