在名称为Forml的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private SUb Form_CnCk()
Open"d:\tes\smtext1.txt"For Input AS #1
Do While Not EOF(1)
Line Iput #1,aspect$
whole$=whole$+aspect$+Chf$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open"d:\test\smtext2.txt"For OutpUt As #1
Print #1,______
Close #1
End Sub
上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。