Dim sFile As String = Application.StartupPath & "/log/error.log"
        Dim oFile As New IO.FileInfo(sFile)
        Dim oStream As IO.StreamReader
        Dim sBuffer As String
        Dim start As Boolean = True
        If oFile.Exists() = True Then
            oStream = New IO.StreamReader(sFile)
            ' Datei auslesen und im Label anzeigen
            sBuffer = oStream.ReadToEnd()
            oStream.Close()
            Label4.Text = sBuffer
 
 
        End If
 
        If (sBuffer = "") Then
        Else
            Me.Opacity = 1
            Application.DoEvents()
        End If