Subitems en listview

[mdg]

Hola amigos.

Tengo un listview con las columnas

legajo nombre  apellido           antiguedad
1         marcelo  cardozo
2         dario       diaz
3         ivan        bazan
etc...     


Todas las columnas como veran estan completas menos la de antiguedad la cual necesito completar una ves que este la lista llena, lo que intente es lo siguiente:

Recorro todos los item del listview intentando completar esta ultima columna.

Dim i As Long
Dim item As ListItem

For i = 1 To Me.ListView1.ListItems.Count

   
    Set item = Me.ListView1.ListItems.item(i).ListSubItems.Add(3, , "lo que sea")

    Next i

 
Esto me larga error "El indice esta fuera de los limites" y no encuentro solucion, desde ya muchas gracias de antemano por su tiempo y por su ayuda.

[mdg]

Buenas amigos, mas o menos encontre la solucion la cual me trae un efecto no deseado, veamos si pueden ayudarme.

resulta que cuando inserto los datos en la columna por ejemplo cuatro con el siguiente codigo:


Dim i As Long
Dim item As ListItem

For i = 1 To Me.ListView1.ListItems.Count

   
    Set item = Me.ListView1.ListItems.item(i)
    item.ListSubItems.Add 2, , "valor"
   
    Next i

El valor que estaba en la siguiente columna se corre a la siguiente y asi sucesivamente, alguien tiene alguna sugerencia, gracias.