怎样读取txt内容？

Question

用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中的那样分行，请问该怎么修改？
谢谢咯

Answer 1

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

Answer 2

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

Answer 3

读一行，加一行：
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 

Answer 4

修改了下，成功了。
应该是这样的
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