Asignar icono a la cabecera de un ListView

Hace dos días que intento asignar un icono a las cabeceras de un ListView y no hay manera, ya no se me ocurre nada más. Alguien puede ayudarme.

Aquí cargo la imagen:

Me.ImageList1.ListImages.Add , "Embudo", LoadPicture(Direc & "\Iconos\Embudo.jpg")

Me.ListView2.ColumnHeaderIcons = Me.ImageList1

... Y aquí es donde añado las cabeceras (ColumnHeaders)

For j = 1 To 9 ' o Tabla.Range.Columns.Count
Me. ListView2. ColumnHeaders. Add,, (Tabla. Range.Cells(1, j)), AnchosList2(j), , 1 '   "Embudo"   "?"
Next j

No sé si tengo que poner el índice (1) o la Key ""Embudo", aunque en ninguno de los dos casos funciona.