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