private sub command1_click() open "txt文件的路径和文件名" & ".txt" for input as #1 do until eof(1) line input #1,ts text1.text = text1.text & ts & vbcrlf loopend sub
别忘了 把文本框控件的多行属性选择为真哦
调用函数打开文件,读出文本,赋值给文本框。