AFFICHER UN EFFET DE TEXTE DANS UNE TEXTBOX (OU AUTRE OBJET)

' Il y a 2 effet de texte présent (que j'aggrandirai tout les 50 personnes)
' pour les sélectionner, noter le code de la manière suivante :
' Tourne(2) où 2 et le numéro de l'effet
' modifier le N° de la TextBox en Passant


Public Sub Tourne(Num As Integer)
 Select Case Num
  Case 1
   'fait un défilement de mot de gauche à droite
    r$ = Left$(Form1.Text1.Text, 1)
    s$ = Mid$(Form1.Text1.Text, 2)
    X = s$ + r$
    Form1.Text1.Text = X
  Case 2
   'fait un défilement de mot de droite à gauche
   r$ = Right$(Form1.Text1.Text, 1)
   s$ = Mid$(Form1.Text1.Text, 1, Len(Form1.Text1.Text) - 1)
   X = r$ + s$
   Form1.Text1.Text = X
 End Select
End Sub