Imports System.Diagnostics Module Module1 Sub Main() Dim Log As New EventLog("Application") Dim Evt As EventLogEntry For Each Evt In Log.Entries Console.WriteLine(Evt.Message) Console.WriteLine(Evt.TimeGenerated) Console.WriteLine(Evt.Source) Next End Sub End Module