SCROLLING D'UN CAPTION

'déclarations
Dim msg As String   'pour le message
Dim i As Integer    'index pour le message

Private Sub Form_Load()
'j'adore les Twingo !!!
msg = "CouCou je m'appel Vincent et j'adore les Twingo !!!! "
End Sub

Private Sub Timer1_Timer()
If i = 0 Then
    i = Len(msg)
End If
'On prends tous les caractères à droite puis on en prend de moins en moins
'ensuite on ajoute tous les caractèresdu début non affiché et on les remet à la fin
'C'est pas plus compliqué!!!!
Label1.Caption = Right(msg, i) + Left(msg, Len(msg) - i)
i = i - 1

'pour le fun, dans la barre de la fenêtre...mais dans l'autre sens !
Form1.Caption = Right(msg, Len(msg) - i) + Left(msg, i)

'PS : avec un richText, je croix que l'on peut mettre une couleur pour chaque lettres...
End Sub