Public Class Form1
 
    Dim arr() As String = Nothing
    Dim i As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        arr = My.Computer.FileSystem.ReadAllText("d:\irgendwas.txt",
           System.Text.Encoding.UTF8).Split(vbCrLf)
 
        With Timer1
            .Enabled = True
            .Start()
        End With
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Label1.Text = "---"
        Button1.Text = "Start"
        Button2.Text = "Stop"
    End Sub
 
    Private Sub Tick() Handles Timer1.Tick
 
        Label1.Text = (arr(i))
        i += 1
        If i = arr.Length Then
            i = 0
        End If
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        With Timer1
            .Stop()
            .Enabled = False
        End With
        Label1.Text = "---"
        i = 0
    End Sub
End Class

EALA FREYA FRESENA