VB6 zapis odczyt pliku

[Henryk]

Witam .
Próbuje opanować podstawy zapisu / odczytu pliku w VB6 , jakoś poszło , tylko nie potrafię zmusić do współpracy TextBox,a ( Pole tekstowe 5 )aby wyświetlał mi zawartość pliku tak jak Lista czyli linijka po linijce .
Podpowie kto jak to zrobić ?

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. Private Sub Command1_Click()
2. Open "C:\aaa.txt" For Output As #1
3. Print #1, Text1.Text
4. Print #1, Text2.Text
5. Print #1, Text3.Text
6. Print #1, Text4.Text
7. Close #1
8. End Sub
9.  
10. Private Sub Command2_Click()
11. List1.Clear
12. Open "C:\aaa.txt" For Input As #1
13.  Do While EOF(1) = False
14.  Line Input #1, a
15.  List1.AddItem a
16.  Text5.Text = a
17.         ' ??????
18. Loop
19.  Close #1
20.  
21. End Sub

vb6.JPG

[Henryk]

Znalazłem rozwiązanie .

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. Private Sub Command1_Click()
2. Open "C:\aaa.txt" For Output As #1
3. Print #1, Text1.Text
4. Print #1, Text2.Text
5. Print #1, Text3.Text
6. Print #1, Text4.Text
7. Close #1
8. End Sub
9.  
10. Private Sub Command2_Click()
11.  
12. List1.Clear
13. Text5.Text = ""
14. Open "C:\aaa.txt" For Input As #1
15.  Do While EOF(1) = False
16.  Line Input #1, a
17.  List1.AddItem a
18.  Text5.SelText = a
19.  Text5.SelText = vbNewLine
20.  Loop
21.  Close #1
22.  
23. End Sub