Mega Code Archive
EventLogEntry TimeGenerated
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