¿Ayudenme a corregir esta parte del codigo?

Logan Fenix
15 de Noviembre del 2007
En este código deseo que en el text box aparezcan las cinco lineas del texto, sin embargo solo me aparece la ultima, ¿Alguien me podria ayudar?

Imports System.IO
Imports System.Text
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim srLector As StreamReader = New StreamReader("c:\test.txt")
Dim Linea As String
Dim ContadorLin As Integer = 1
Linea = srLector.ReadLine()
Do While Not (Linea Is Nothing)
TextBox1.Text = Linea
ContadorLin = ContadorLin + 1
Linea = srLector.ReadLine()
Loop


End Sub
End Class

Llaverin
15 de Noviembre del 2007
Hola Logan:
Lo que tienes que hacer es ir concatenando la linea, por ese motivo solo te sale la ultima, porque es la ultima que recoge. Ejemplo:
Do While Not (Linea Is Nothing)
TextBox1.Text = TextBox1.Text & vbCrLf & Linea
ContadorLin = ContadorLin + 1
Linea = srLector.ReadLine()
Loop

Esta es una manera de hacerlo. El vbCrLf es el salto de linea.

La otra manera es crear un variable y pasarle la cadena al textbox:
Dim vCadena as String
Do While Not (Linea Is Nothing)
vCadena = vCadena & vbCrLf & Linea
ContadorLin = ContadorLin + 1
Linea = srLector.ReadLine()
Loop
TextBox1.Text = vCadena

Espero que te sirva.

Saludos
Ana