Dim myLog As New Diagnostics.EventLog
        myLog.Source = "system"
        Dim log As String = Nothing
        Dim myeventtype As String
        Dim entry As EventLogEntry
        For Each entry In myLog.Entries
            Select Case entry.EntryType
                Case 1
                    myeventtype = "Error"
                Case 2
                    myeventtype = "Information"
                Case 3
                    myeventtype = "Warning"
                Case Else
 
                    myeventtype = "Information"
            End Select
            log += ((myeventtype & ";" & entry.MachineName & ";" & entry.Source _
              & ";" & entry.UserName & ";" & entry.EventID & ";" & _
              entry.TimeWritten.ToString & ";" & " Beschreibung: " & _
              entry.Message) & vbCrLf)
        Next entry
 
        Dim sw As IO.StreamWriter = New IO.StreamWriter(Application.StartupPath _
          & "\system.log")
        sw.Write(log)
        sw.Close()
        Me.Close()