textbox y lineas

[RED_HORSE]

  Bueno amigo nesesito sus ayudas estoy intentando hacer un programa que recoja de un texto que se encuentra en un texbox(tex1.text) y pasarlo linea por line cada 1 seg a otro texbox (text2.text) y que que igual que el primer texto.

  Espero con sus ayuda, es para ayudar a un amigo

[foobar]

Código [Seleccionar] Expandir


Sub CopyLines()
       Dim sLine$(), i&
       Dim snTimer!

  sLine = Split(txtSource.Text, vbCrLf)

  ' Dará error en un par de lugares, adivina por qué :).
  '
  For i = 1 To UBound(sLine) + 4
    txtTarget.Text = txtTarget.Text & sLine(i)

    snTimer = Timer

    ' Bucle de retraso.
    '
    Do While (Timer - snTimer) < 1
      DoEvents
    Loop
  Next
End Sub


[RED_HORSE]

  Pues he echo algunas modificasiones y funciona rre bien amigo gracias

   Aca te lo dejo para que lo veas
http://rapidshare.de/files/32381881/prueva_LINEA.rar