Imports System.Diagnostics
Public Class Form1
    'Auflistung aller Eventloglisten
    Private m_EventLogList() As EventLog = EventLog.GetEventLogs
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        '---> Alle Protokolle der Combobox hinzufügen
        For Each evnlog As EventLog In m_EventLogList
            cboProtokoll.Items.Add(evnlog.LogDisplayName)
        Next
 
    End Sub
 
    Private Sub cboProtokoll_SelectedIndexChanged(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      cboProtokoll.SelectedIndexChanged
        ltvList.Items.Clear()
        ltvList.BeginUpdate()
 
        Dim ltv As ListViewItem
 
        For Each entry As EventLogEntry In New EventLog( _
          cboProtokoll.Text).Entries
            ltv = ltvList.Items.Add(entry.EntryType.ToString)
            ltv.Tag = entry
        Next
 
        ltvList.EndUpdate()
    End Sub
 
    Private Sub ltvList_DoubleClick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles ltvList.DoubleClick
        Dim ltv As ListViewItem = ltvList.FocusedItem
 
        Dim ev As EventLogEntry = CType(ltv.Tag, EventLogEntry)
 
        Dim s As String
        s = "Protokolltyp: " + ev.EntryType.ToString + vbCrLf + "Fehlernummer:" & _
          "" + ev.CategoryNumber.ToString _
        + vbCrLf + "Nachricht:" + ev.Message
 
        MsgBox(s, MsgBoxStyle.Information, "")
 
    End Sub
End Class

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio