Dim EvtEntry As EventLogEntry
        Dim EvtLog As New EventLog()
        EvtLog.Log = "System"
        For Each EvtEntry In EvtLog.Entries
            Console.WriteLine("{0} {1}  {2} : {3}", _
              EvtEntry.TimeWritten.ToString, EvtEntry.EntryType.Error, _
              EvtEntry.EventID, EvtEntry.Message)
        Next EvtEntry
        EvtLog.Close()