[Resolvido]Mudar cor da fonte de uma linha do ListView basiada em critério

Dim strK as String 'Recebe uma letra que irá ser o promeiro caractere da Key
Dim intK as Integer 'Será contatenado a variável strK para formar a Key
intK = 0 'Inicializo a variável com 0
Do Until rsP.EOF
intK = intK + 1 'incremento a variável intK a cada laço
strK = "k" & intK 'Concateno as duas variáveis, pois é obrigatório o primeiro caractere de uma Key ser uma letra

Set Itens = LV.ListItems.Add(, strK, rsP!IdReq) 'Aqui atribuo a Key personalizada ao item do ListView
bolUrg = rsP!Urgente
Itens.SubItems(1) = rsP!Produto
Itens.SubItems(2) = rsP!Qtd
Itens.SubItems(3) = IIf(IsNull(rsP!PrecoAtual) = True, "Não cotado", rsP!PrecoAtual)
Itens.SubItems(4) = rsP!finalidade
LV.ListItems(strK).ListSubItems(1).ForeColor = IIf(bolUrg = True, vbRed, vbBlue) 'Caso a variável bolUrg for True, a cor da linha atual da coluna 1 será vermelha, caso contrário, será azul.
rsP.MoveNext
Loop