Imports System.Diagnostics

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WriteToEventLog("Hello Where Are U", EventLogEntryType.Information, "VB.Net Application", "Application") End Sub Private Function WriteToEventLog(ByVal Entry As String, ByVal LogEntryType As System.Diagnostics.EventLogEntryType, _ Optional ByVal AppName As String = "VB.Net Application", _ Optional ByVal LogName As String = "Application") As Boolean Dim objeventlog As New EventLog() Try If EventLog.SourceExists(AppName) = False Then EventLog.CreateEventSource(AppName, LogName) End If objeventlog.Source = AppName objeventlog.WriteEntry(Entry, LogEntryType) Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally objeventlog.Dispose() End Try End Function