Write to the Event Log in .NET (VB.NET and C#.NET)

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
          '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