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>