Suche Tool das im Hintergrund läuft, welches die Windows Ereignisanzeige überwacht und bei Fehler oder Warnung einen auffälligen Alarmtext anzeigt

Imports System.Diagnostics
Public Class Form1
    Dim WithEvents log1 As EventLog

    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        log1.EnableRaisingEvents = False
        log1.Dispose()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        log1 = New EventLog("Application")  
        log1.EnableRaisingEvents = True
    End Sub

    Private Sub log1_EntryWritten(sender As Object, e As System.Diagnostics.EntryWrittenEventArgs) Handles log1.EntryWritten
        If e.Entry.EntryType = EventLogEntryType.Error Or e.Entry.EntryType = EventLogEntryType.Warning Then
            Dim style As MsgBoxStyle
            Select Case e.Entry.EntryType
                Case EventLogEntryType.Error
                    style = MsgBoxStyle.Critical
                Case EventLogEntryType.Warning
                    style = MsgBoxStyle.Exclamation
            End Select
            MsgBox(e.Entry.Message, style)
        End If
    End Sub
End Class