cambiar color de columna en grilla

[bitshoot]

Hola a todos, me gustaria saber como cambiar el color de una columna dependiendo un dato..
por ejemplo en Me.lstRutas.Columns(2).Width = 60 traigo un dato n o s, me gustaria que en s, estuviera de un color diferente, pero no se como hacerlo....


Private Sub BuscarRuta()
Dim DRRuta As SqlCeDataReader
Dim objRuta As New clsDTRuta()

Cursor.Current = Cursors.WaitCursor

DRRuta = objRuta.getRutaCliente(Me.DTFechaRuta.Text, strVendedor)

objUtils.DR2ListView(DRRuta, Me.lstRutas, False)
DRRuta.Close()
If Me.lstRutas.Items.Count > 0 Then
Me.lstRutas.Columns(0).Width = 85
Me.lstRutas.Columns(1).Width = Me.lstRutas.Width - 85
Me.lstRutas.Columns(2).Width = 60
End If
blSaved = True
If lstRutas.Items.Count > 0 Then
blnHayDatos = True
Else
blnHayDatos = False
End If

' Se guarda la fecha antes que cambie el DTPicker
Fecha = Me.DTFechaRuta.Text
CantidadRegistros()
objRuta.Dispose()
Cursor.Current = Cursors.Default

End Sub


se agradese toda su ayuda