Controlli - Creare Una Scritta Scorrevole

Text # In un form, inserire una TextBox, un timer (Proprieta' Interval=100,
Enabled=False), ed un CommandButton.
Copiare il seguente codice
Dichiarazioni generali
Dim Titolo As String
Codice
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