privatesubcommand1_click()

open"c:\123.txt"forinputas#1

n=0

dowhilenoteof(1)

lineinput#1,a

n=n+1

ifn=3then

text1.text=a

exitdo

endif

loop

close#1

endsub

这样就可以了。用n来控制行数。当到达了第三行，就输出到文本框，然后退出循环。