Aqui te pongo el codigo.
Dim strDirection As String
Dim strMessage As String
Dim strTemp As String
-------------------------------------------------
Private Sub Form_Load()
' Inicializar las variables de funcionamiento.
strDirection = "hacia adelante"
strMessage = "Si us plau, introduiu el DNI o codi, i pulseu ok "
strTemp = String(30, Asc(" ")) & strMessage
' Iniciar la marquesina.
ceTimer.Enabled = True
End Sub
---------------------------------------------------------------------
Private Sub ceTimer_Timer()
' Dependiendo de la dirección de desplazamiento, corte
' el carácter que se encuentre más a la izquierda o a la derecha de la
' cadena y péguelo en el extremo opuesto.
If (strDirection = "hacia adelante") Then
strTemp = Right(strTemp, Len(strTemp) - 1) & _
Mid(strTemp, 1, 1)
Else
strTemp = Right(strTemp, 1) & Mid(strTemp, 1, _
Len(strTemp) - 1)
End If
' Mostrar la cadena, dando sensación de
' de desplazamiento del texto.
txtdisplay.Text = strTemp
End Sub
-----------------------------------------------------
Private Sub cmdChangeDirection_Click()
' Cambiar la etiqueta de dirección.
Select Case strDirection
Case "hacia adelante"
strDirection = "hacia atrás"
Case "hacia atrás"
strDirection = "hacia adelante"
End Select
End Sub
--------------------------------------------------
hasta la vista, acuerdate de poner el timer, yo le he doy 100 de intervalo, tu mismo
Holi