Rellenar Columna de Un ListView1

[fedefrankk]

Hola a todos, tengo el siguiente codigo y lo que quiero es rellenar de rojo la columna 4, con una condicion, se podra?...

Código PHP:

  Call abrir
Dim subelemento As ListItem
ListView1.View = lvwReport
ListView1.GridLines = True
X = "Select count(*) as ultimo from articulos"
apertura.Open X, conectar
ultimo = apertura!ultimo + 1
apertura.Close
X = "Select * from articulos "
apertura.Open X, conectar
i = 1
Do While Not apertura.EOF
Set subelemento = ListView1.ListItems.Add(, , apertura!codigo_art)
subelemento.SubItems(1) = apertura!detalle_art
subelemento.SubItems(2) = apertura!rubro_art
subelemento.SubItems(3) = apertura!nro_proveedor
subelemento.SubItems(4) = vbRed = apertura!costo_art
subelemento.SubItems(5) = apertura!pre_venta_art
subelemento.SubItems(6) = apertura!existencia_art
subelemento.SubItems(7) = apertura!minimo_art
subelemento.SubItems(8) = apertura!maximo_art
i = i + 1
apertura.MoveNext

Loop
Call cerrar  
   

Desde ya muchas gracia a todos

[pkj]

If blablabla.... then CambiaColorColumna TuListView, 4, vbRed

Código :

Sub CambiaColorColumna(ControlListView As ListView, NumColumna As Integer, NuevoColor As Variant)
  Dim F As Long
  For F = 1 To ControlListView.ListItems.Count
    ControlListView.ListItems(F).ListSubItems(NumColumna).ForeColor = NuevoColor
  Next F
  ControlListView.Refresh
End Sub
 

Saludos

[fedefrankk]

hola.. gracias por la repuesta muy buena
saludos