Problemas con LineInput!

[KazerPowa]

Hola,

Este es el código en cuestión:

Código vb:

Dim Line As Integer = 1
          Do Until EOF(1)
                   
                    ListBox1.Items.Add(LineInput(Line))
                    Line = Line + 1
                    ListBox2.Items.Add(LineInput(Line))
                    Line = Line + 1
                    ListBox3.Items.Add(LineInput(Line))
                    Line = Line + 1
            Loop
 

Os explico....yo tengo un archivo abierto, y voy añadiendo el valor de cada línea del texto a los correspondientes ListBox, aumentando el valor la línea con cada ListBox. Con este método consigo meter la línea 1 en el ListBox1, la línea 2 en el ListBox2, la línea 3 en el ListBox3, y la línea 4 otra vez en el ListBox1....hasta que se acaba el archivo.

Si, todo eso es muy bonito....el problema es que después de agregar la primera línea correctamente, me da error en tiempo de ejecución (No se puede leer el archivo), y por lo visto no puedo volver a usar LineInput (Línea).

Ya probé a poner LineInput con la línea directamente [LineInput(2)], pero nada, que no puedo usarla por segunda vez. Se queda ahí. Que puede estar pasando?

Saludos.

[KazerPowa]

Vale.....ya pude solucionarlo.

La solución era:

Código vb:

1.
   
                Do Until EOF(1)
  
   
                          ListBox1.Items.Add(LineInput(1))
 
                          ListBox2.Items.Add(LineInput(1))
 
                          ListBox3.Items.Add(LineInput(1))
 
                  Loop
 

Así de sencillo.