Public Class Form1
 
Dim pfad As String
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles     Timer1.Tick
 
        pfad = System.IO.File.ReadAllText("C:\Users\Myers\Desktop\Pfad.txt")
 
        If Label1.Left < Label1.Width * (-1) Then Label1.Left = Me.Width + 10
 
        Label1.Left = Label1.Left - 10
 
        Label1.Text = System.IO.File.ReadAllText(pfad)
 
 
 
    End Sub
 
 
 
 
End Class