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.
(http://img129.imageshack.us/img129/9502/ayudabw3.png)
Espero con sus ayuda, es para ayudar a un amigo ;D
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
Pues he echo algunas modificasiones y funciona rre bien amigo gracias
Aca te lo dejo para que lo veas ;D
http://rapidshare.de/files/32381881/prueva_LINEA.rar