[VB]Far scorrere il testo

[Andreass]

Grazie!!é un casino

Private Sub Command1_Click()
Label1.Caption = Text1.Text
End Sub

Private Sub Timer1_Timer()
a = a + 1
Label1.Move (12)
End Sub