Visual Basic - RE:Me urgeeeeeeeeeee

'Iserta este código en un form
''Tienes que tener un TextBox llamado
' Text1
'y un Timer lamado Timer1 y prueba


Dim strTexto As String
Dim Accion As Boolean

Private Sub Form_Load()
'Definir texto a mostrar
strTexto = String(5, " ") + "--->" + String(5, " ") + "Prueba de Desplazamiento"
Accion = True
End Sub

Private Sub Timer1_Timer()
strTexto = Mid$(strTexto, 2) & Left$(strTexto, 1)
Text1.Text = strTexto
End Sub


salu2 y suerte