Solo escribe en la linea 1 del textbox

[pepepercebe]

Hola a todos, e

stoy enganchado con un textbox. La idea es pasarle lineas de texto y que vayan situandose en el textbox una bajo de otra pero tengo el problema que cada vez que le paso una linea machaca la primera linea.

He hecho un pequeño formulario con un listbox y un textbox. Al ejecutarse el codigo lee un directorio y cada fichero xml que encuentra lo añade al textbox y a la lista.

Código:

Dim s As String
List1.Clear
s = Dir("\\206.182.252.156\sat-direct\Aplicaciones\Visual_Basic\2010\xml" & "\*.xml")
Do While s <> ""
List1.AddItem s
Text1.SelStart = Len(Text1.Text)
Text1.Text = s + vbNewLine
s = Dir
Loop

Luego en las propiedades del control tengo multinlinea = true y scrollbars= 2 -Vertical.

La intencion es que muestre cada nombre de archivo xml en una linea del text box y si hay muchos que se active el scroll y puedas subir y bajar el scroll para localizarlos.

Algo asi:

fichero1.xml
fichero2.xml
fichero3.xml
fichero4.xml
ficheron.xml


Me podeis decir si tengo que activar alguna propiedad mas del control, o corregirme el codigo.

Un saludo

[pepepercebe]

Bueno no se si se hace asi pero he encontrado un atajo.

Dejo el codigo por si a alguien en un futuro le sirve.

Código:

Dim s As String
List1.Clear
Text1.Text = ""
s = Dir("\\206.182.252.156\sat-direct\Aplicaciones\Visual_Basic\2010\xml" & "\*.xml")

Do While s <> ""
List1.AddItem s
Text1.Text = Text1.Text + s + vbNewLine
Text1.SelStart = Len(Text1.Text)
s = Dir
Loop

[Gakex]

Hola tambien puedes usar vbCrLf que es para una nueva linea
ejemplo:
"Hola1" & vbCrLf & "Hola2"
la salida del ejemplo anterior seria:
Hola1
Hola2