Private Sub frmProtokoll_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
Dim _fLog As System.IO.StreamReader = New System.IO.StreamReader( _
getConfig.getSysVal("ProtFile"))
Dim _str As String
Try
While _fLog.Peek > -1
rtbProtokoll.Text += _fLog.ReadLine & vbCrLf
End While
_fLog.Close()
Catch ep As Exception
Debug.WriteLine(ep.Message)
End Try
_fLog.Close()
End Sub