VB.Net by API/System.Diagnostics/EventLogEntryType
EventLogEntryType.Information
<source lang="vbnet"> Imports System.Diagnostics public class Test
Shared Dim logStatus As System.Diagnostics.EventLog = New System.Diagnostics.EventLog public Shared Sub Main If Not EventLog.SourceExists("StatusSource") Then EventLog.CreateEventSource("StatusSource", "StatusLog") Console.WriteLine("Creating event source") End If " Set the EventLog component"s source. logStatus.Source = "StatusSource" " Write a Starting message to the log. ShowLog() logStatus.Clear() ShowLog() End Sub Private Shared Sub ShowLog() For Each log_entry As EventLogEntry In logStatus.Entries Console.WriteLine(log_entry.Message) Next log_entry End Sub
End class
</source>