'zb im Deklarationsteil des Formulars 
'kannst natürlich auch einen Timer im Designer auf die Form ziehen
Dim WithEvents tim As New Timer With {.Interval = 500, .Enabled = True}
 
'zwecks Sperre während des Lesens
Dim timer_gesperrt As Boolean = False
 
'Hier das Timer Event (feuert alle 500 ms)
Private Sub tim_Tick(ByVal sender As Object, _
      ByVal e As System.EventArgs) Handles tim.Tick
 
     If timer_gesperrt Then Exit Sub
 
     timer_gesperrt = True
 
     RichTextBox1.Text = _
     My.Computer.FileSystem.ReadAllText("Datei zum Lesen")
 
     timer_gesperrt = False
 
End Sub