急!!!!怎样导入TXT的所有内容到vb呢？

open "c:\Content.txt" for input as #1
do while not eof(1)
line input #1,a
Text1.text=Text1.text&a
loop
close #1
'另外把Text1 的MultiLine 设成 True
'ScrollBars 设成 Vertical 或者 Both
'自己打出来的,没有运行过，如果有错误可以自己改一下

复制粘贴