姐姐真好，一步一步的教我！！

Option Explicit
'先添加引用Fso对象模型.
Private fso As New FileSystemObject
Private txtStream As TextStream
Private Sub Form_Load()
Set txtStream = fso.OpenTextFile(App.Path & "\user.txt", ForReading)
End Sub

Private Sub next1_Click()

Dim str As String
If Not txtStream.AtEndOfStream Then
str = txtStream.ReadLine
name1.Caption = str
Else
？？？？？？？？？？？
txtStream.Close
End If
End Sub
我把这些放在程序的顶部了~
可一运行就提示第一行的Private fso As New FileSystemObject 用户定义类型未定义
单独把上面这段程序放在一个空的FORM里一切正常呀~~~~还有个问题，读到文件尾怎么办？再继续
读下去就出错了~