Listbox colorazione riga subordinata a contenuto cella

[Massimo Lista <massimo.lista@gmail.com>]

Per colorare una riga subordinata al valore contenuto in una cella avevo
scritto:Su Evento: CellBackgroundPaint

Dim i, TotRow, res As Integer
  Dim numriga As integer
  TotRow=me.ListCount
  for i=0 to TotRow -1
    If ListBox1.Cell(i,1) = "Pippo" then
        g.ForeColor=RGB(255,176,98) //Arancio
        g.FillRect(0,0,g.Width,g.Height)
    end if
  next
....ma non funzionava (vengono colorate tutte le righe pur intercettando l'if


Per farlo funzionare ho dovuto aggiungere if row =...
Dim i, TotRow, res As Integer
  Dim numriga As integer
  TotRow=me.ListCount
  for i=0 to TotRow -1
    If ListBox1.Cell(i,1) = "Pippo" then
      numriga = i
      if row = numriga  then
        g.ForeColor=RGB(255,176,98) //Arancio
        g.FillRect(0,0,g.Width,g.Height)
      end if
    end if
  next