vb如何实现输出记事本内容到文本框

比如存在c:\a.txt 我想实现单击按钮就能把这个文件里的内容输入到vb的text1.text上 高手帮忙 谢谢

Private Sub Command1_Click()
open "c:\a.txt" for binary as #1
text1.text=input(lof(1),#1)
close #1
End Sub

vb提供了实现这1功能的关键字，对文件的操作：逐行顺序取用或保存，随机文件去用保存机制，比如：我首先设定记事本的地址在txtfile.text,也就是默许txtfile.text=file.path+file.filename文本框的默许name属性为txtfiletext.text，则写入记事本内容部份程序用为：，、。，、。，dim note as string，oneline as string、。，、。，、。，open txtfile.text for input as #1do while not eof（1）line input #1，onelinenote=onelinelooptxtfiletext.text=noteclose，、。，、。，这段程序只是1个实例，很粗糙还，如果想要完善，还需进1步改进，希望对你能有所帮助！感谢采用！