1) Prova a scrivere la routine evitando il passaggio W=J e poi I=W, cioè
...
Next J
I = J
If Y = 0 Then LIst_Supporto.Items.Add(X & " " & Buf1)
Next I
...e vedrai l'errore segnalato.
2) Mah, la mia routine, come ho detto, funziona perfettamente e per ora la uso così. Però mi hai dato alcune idee, su cui lavorerò. Grazie per l'attenzione.


Rispondi quotando