Visual Basic

Public Class frmEventWrite

    Public Function WriteToEventLog(ByVal Entry As String, _
                                    ByVal AppName As String, _
                                    ByVal EventType As EventLogEntryType, _
                                    ByVal LogName As String) As Boolean

        ' Create the source, if it does not already exist.
        If Not EventLog.SourceExists(AppName) Then
            EventLog.CreateEventSource(AppName, LogName)
        End If

        ' Create an EventLog instance and assign its source.
        Dim myLog As New EventLog()
        myLog.Source = AppName

        ' Write an informational entry to the event log.    
        myLog.WriteEntry(Entry, EventType)

        Try
            Return True
        Catch Ex As Exception
            Return False
        End Try

    End Function