Dim myEventType As String = "Error"
        Dim myEventLog As New EventLog("System", ".")
        Dim myLogEntryCollection As EventLogEntryCollection = myEventLog.Entries
        Dim myCount As Integer = myLogEntryCollection.Count
        Dim i As Integer
        For i = myCount - 1 To -1 Step -1
            Dim myLogEntry As EventLogEntry = myLogEntryCollection(i)
            Console.WriteLine(myLogEntry.TimeGenerated.ToString & " " & _
              myLogEntry.Source & myLogEntry.EntryType.ToString())
return
        Next i