Visual Basic - indice... ayuda

Hola todos:

mi codigo obiamente es mucho + largo pero quisiera no dar + codigo si no les molesta...
mi codigo es:

Private Sub Form_Load()
timer2.interval = 1000
timer1.interval = 1
labelcr.caption = 30
end sub

Private Sub Timer1()
labelcr.caption = labelcr.caption -1
end sub

Private Sub Timer2()
if labelcr.caption = 0 then
labelcr.caption = 30
end if
if labelcr.caption = "10" then
file1.listindex = file1.listindex + 1 'error
end if
end sub

el error esta en la linea q sale "error" como comentario, sin comillas.
mi problema es el siguiente:
con la linea "file1.listindex = file1.listindex + 1" pretendo q el indice(listindex) se baje uno, es decir q cada vez q el timer pase x por 10, se baje un indice (listindex). si el indice (listindex) es 1 se haga 2, etc. ¿como puedo hacer esto? "file1.listindex = file1.listindex + 1" deberia funcionar pero el indice(listindex) se baja hasta el ultimo...

muchas gracias
Roberto