leggere + righe da file txt

[sintax_error]

con questo codice leggo una riga alla volta da un file .xtx

Open App.Path & "\menu\pics\11.bop" For Input As 1
Dim cnt
cnt = 0
Do While Not EOF(1)
Line Input #1, stringa
Textmain.Text = stringa
Exit Do

cnt= cnt + 1
Loop
Close #1

come poss leggere ad esempio 5 righe alla volta??
GRAZIE

[optime]

Open App.Path & "\menu\pics\11.bop" For Input As 1 
Dim cnt, iRows
cnt = 0 
Do While Not EOF(1) 
   Line Input #1, stringa
   Textmain.Text = Textmain.Text & stringa & vbcrlf
   cnt= cnt + 1 
   if cnt=5 then Exit Do 
Loop 
Close #1

[sintax_error]

GRAZIE Optime

[sintax_error]

il tuo codice mi legge solo le prime 5 rige,
per passare alle successive?
Calcola che deve selezionarle in base a un indice preso da una List Box.
Grazie

[optime]

devi mettere un ulteriore ciclo, che si ripetera' n volte, in base al valore della listbox

[sintax_error]

Help Optime
non ci riesco sono alle prime armi con vb6.
praticamente dovrebbe funzionare cosi':
seleziono indice 1 >>>>>>leggo da riga 1 a riga 10.
seleziono indice 2 >>>>>>leggo da riga 11 a riga 20 ecc
ho provato in vari modi ma non mi funziona.
Puoi farmi un esempio esplicativo?
CIAO e GRAZIE

[optime]

Dim cnt, iRows as integer, iIndex as Integer

Open App.Path & "\menu\pics\11.bop" For Input As 1 

cnt = 0 
iRows = 0
iIndex = 0

Do While Not EOF(1) 
   Line Input #1, stringa
   Textmain.Text = Textmain.Text & stringa & vbcrlf
   cnt= cnt + 1 
   If cnt=5 Then 
      iIndex=iIndex + 1
      If iIndex = valore_della _list_box Then
         Exit Do 
      Else
         cnt = 0
         Textmain.Text = ""
      End If
   End If
Loop 

Close #1

[sintax_error]

Grazie