Dim objDateiLeser1 As IO.StreamReader
 Dim timer_gesperrt As Boolean = False
 Dim read1 As String
 
Timer1.Interval = 500
Timer1.Enabled = True
 
     If timer_gesperrt Then Exit Sub
 
     timer_gesperrt = True
 
     objDateiLeser1 = New IO.StreamReader("V:\Azubis\netChat\Files\chat1.txt", _
       True)
 
read1 = objDateiLeser1.ReadToEnd()
objDateiLeser1.Close()
objDateiLeser1 = Nothing
RichTextBox1.Text = read1
 
        RichTextBox1.SelectionStart = RichTextBox1.Text.Length
        RichTextBox1.ScrollToCaret()
 
timer_gesperrt = False