leggere + righe da file txt

[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