Salve a tutti

Ho un problema complesso con vb6 che spero di spiegare nel modo migliore.
In una listbox (list1) inserisco una serie di valori; man mano che inserisco dei dati, per ogni riga completata, compare sulla destra una textbox (con il comando visible=true ogni qualvolta si popolano le righe della listbox);in ogni textbox vi è la possibilità di inserire valori numerici.
Ovviamente, vorrei che i valori della riga della list1 e della textbox viaggino sempre accoppiati.

es:

list1 | textbox

pippo | 5
pluto | 6
paperino | 8

Il problema sussiste quando,eliminando un componente della list1, ad es Pluto, l'elemento Paperino passa nella riga precedente mentre il valore scritto nella textbox rimane quello di Pluto:

list1 | textbox

pippo | 5
paperino | 6


Vorrei trovare un comando che trasporti il valore da una textbox alla sua precedente.

Ho provato a usare questo comando:

Private Sub Command2_Click()
dim a as integer
a= list1.listindex
Textbox(a).text=Textbox(a+1).text
End sub

ma non funge!!


Qualcuno sa come fare?

Grazie mille!!!!