Public Class Form1
  Public WithEvents timer As Timers.Timer
  Private Delegate Sub DelegateScorri()
  Private DScorri As New DelegateScorri(AddressOf Scorri)


  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Me.timer = New Timers.Timer(300)
    timer.Start()

  End Sub

  Private Sub timer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles timer.Elapsed

    Try
      Me.Invoke(Me.DScorri)

    Catch ex As Exception

    End Try
  End Sub

  Private Sub Scorri()

    Me.LTesto.Text = Me.LTesto.Text.Insert(Me.LTesto.Text.Length, Me.LTesto.Text.Chars(0))
    Me.LTesto.Text = Me.LTesto.Text.Remove(0, 1)

  End Sub

End Class