Visual Basic - ListView con Lineas de Colores

La pregunta anterior del día 26-02 ListView con Lines de Colores:
Sabe alguien cómo funciona en Visual Basic para Aplicaciones VBA porque a mí no me funciona.
Se supone que la línea es:
ListItems.item(index).ForeColor = color
Pero sólo me funciona para toda la lista con
ListItems.ForeColor = color
Gracias de antemano.

ListItems.item(index).ForeColor = color funciona pero antes debes asignarle un valor al subitem. Un buen truco es hacer esto:
listitems.item(x).subitem(y)=listitems.item(x).subitem(y)

y luego utiliza el listsubitem.