VB text 循环输入换行

Question

Private Sub Command6_Click()
    Dim Text  
    Open "C:\Documents and Settings\Administrator\桌面\22.txt" For Input As #1
    Do While Not EOF(1)
    Line Input #1, Text
    Text1.Text = Text & vbCrLf
    Loop
    Close #1
End Sub像这样写的话输出后老是只显示最后一条记录！~我想把TXT里面的东西全显出来怎么弄？？

Answer 1

Text1.Text =Text1.Text & Text & vbCrLf 
就1分,楼下的别回了

Answer 2

Private Sub Command6_Click() 
    Dim Text  
    Open "C:\Documents and Settings\Administrator\桌面\22.txt" For Input As #1 
    Do While Not EOF(1) 
    Line Input #1, Text 
    Text1.Text =Text1.Text & Text & vbCrLf 
    Loop 
    Close #1 
End Sub 

Answer 3

Text1.Text =Text1.Text & Text & vbCrLf