TextScroll

Dim Titolo As String
Private Sub Command1_Click()
Titolo = String(30, " ") + "Questa e' una stringa scorrevole"
Timer1.Enabled = True
End Sub

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

Avrete sicuramente visto programmi che hanno un testo multicolore
(arcobaleno) in background. Tutto cio' e' molto semplice da fare
usando un for loop.