怎样读取txt内容？

[zhiyeqiangqian]

用vb6实现读取txt内容到list控件中，不是text控件中。
这样写行不？
Open "D:\123.txt" For Input As #5
Dim Lines As String
Dim NextLine As String
Dim i As Integer
Do While Not EOF(5)
On Error Resume Next
Line Input #5, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #5
List1.AddItem Lines

我测试了下，txt中的内容如下：
＝＝＝＝＝＝＝
1
2
3
4
＝＝＝＝＝＝＝

但是读取到list1中的内容如下:
＝＝＝＝＝＝＝
1234
＝＝＝＝＝＝＝

我想把读取到的也像txt中的那样分行，请问该怎么修改？
谢谢咯

[zhiyeqiangqian]

修改了下，成功了。
应该是这样的
Dim Lines As String
Dim NextLine As String
Dim i As Integer
Do While Not EOF(5)
On Error Resume Next
Line Input #5, NextLine
List1.AddItem NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #5

[帝企鹅已被占用]

Do While Not EOF(5)
On Error Resume Next
Line Input #5, NextLine
List1.AddItem NextLine
Loop

[guoshaoning]

Private Sub Command1_Click()
Open "D:\123.txt" For Input As #5
Dim Lines As String
Dim NextLine As String
Dim i As Integer
Do While Not EOF(5)
On Error Resume Next
Line Input #5, NextLine
List1.AddItem NextLine
'Lines = Lines & NextLine & vbCrLf
Loop
Close #5
List1.AddItem Lines
End Sub

[of123]

读一行，加一行：


Dim NextLine As String
List1.Clear
Open "D:\123.txt" For Input As #5
Do Until EOF(5)
Line Input #5, NextLine
List1.AddItem NextLine
Loop
Close #5