Tengo 2 textbox multilinea. En textbox1 tengo una lista a la que necesito agregarle en el inicio de cada linea de texto un solo caracter (en realidad seria caracteres numericos consecutivos, pero de eso me encargo yo). Por ejemplo en el textbox1 tengo lo siguiente:

cadena caracteres 1
cadena caracteres 2
cadena caracteres 3
cadena caracteres Infinita

Lo que quiero hacer es que en el textbox2 me haga esto al presionar un boton, por ejemplo, agregarle un asterisco:

* cadena caracteres 1
* cadena caracteres 2
* cadena caracteres 3
* cadena caracteres Infinita

La verdad es que no se como se hace esto, y lo he intentado de la siguiente forma pero no me sirvio

textbox2.text="*".textbox1.text

pero era obvio que le agregaba ese asterisco al textbox completo y no a cada linea. Asi que no sé como lo hago...

Espero que se haya entendido la duda que planteo, y espero que me puedan dar una mano en esto, que seguro debe ser algo sencillo, pero como acabo de empezar en VB6 pues me trabé en este punto. De todas maneras gracias.

Usa KeyPress

Dim Numero As Integer 'Declara un numero que cambie
Private Sub Text1_KeyPress(KeyAscii As Integer)
Numero = Numero + 1
If keyascii = 13 Then TextBox2.Text = Numero + "- " + TextBox2.Text 'agregale el numero
End Sub
 

Quieres hacer una aplicacion tipo "Pedro Responde"?

jeje pues yo lo haria así:

    Text1.Text = "*" & Replace(Text1.Text, vbNewLine, vbNewLine & "*")

 

Estoy con morpheusoliver: