FAIRE DÉFILER UN MESSAGE DANS UN TEXTBOX.

Option Explicit

Public strTexte As String
Public ctrTexte As Control


Private Sub Command1_Click()
strTexte = "Voyez le brick géant que j'examine près du wharf. "
If Timer1.Enabled = False Then
Set ctrTexte = Text1
Timer1.Enabled = True
Command1.Caption = "Stop"
Else
Timer1.Enabled = False
Command1.Caption = "Début"
End If

End Sub


Private Sub Timer1_Timer()
'Mettre l'interval de temps à 100.

Static intPos As Integer
Dim intLenTexte As Integer
intLenTexte = Len(strTexte)
ctrTexte = Right(strTexte, intLenTexte - intPos) & Left(strTexte, intPos)
If intPos = intLenTexte Then intPos = 0
intPos = intPos + 1
End Sub