It is as simple as this to write to the Windows Event Log in .NET


Imports System.Diagnostics


Public Function WriteToEventLog(ByVal Entry As String, _ Optional ByVal AppName As String = "APlusFeeCalc", _ Optional ByVal EventType As EventLogEntryType = EventLogEntryType.Information, _ Optional ByVal LogName As String = "Application") As Boolean Dim objEventLog As New EventLog Try 'Register the App as an Event Source If Not objEventLog.SourceExists(AppName) Then objEventLog.CreateEventSource(AppName, LogName) End If objEventLog.Source = AppName 'WriteEntry is overloaded; this is one of 10 ways to call it objEventLog.WriteEntry(Entry, EventType) Return True Catch Ex As Exception Return False End Try End Function