还是没有解决打开的（或者粘贴的文本）随着TEXT的宽度而实现自动换行，就如同WINDOWS的文本的自动换行功能一样，还是拉到后面去了，看不见，必须拉动滚动条才可以看见后面的文本！

代码如下：

Private Sub File1_Click()
Dim aStr As String
Dim strFile As String
strFile = File1.Path
If Len(File1.Path) <> 3 Then '不是根目录
strFile = strFile & "\"
End If
strFile = strFile & File1.FileName
Open strFile For Input As #1
While Not EOF(1)
Line Input #1, aStr
Text1.Text = Text1.Text + aStr & vbCrLf + Chr$(13) + Chr$(10)
Wend
End Sub

烦请再修改下！

谢谢！