VB chữ chạy

Private Sub Form_Load()
    Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
    Dim x As String
    Dim y As String
    x = Left(Text1.Text, 1)
    y = Right(Text1.Text, Len(Text1.Text) - 1)
    Text1.Text = y + x
End Sub