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