Imports System.Diagnostics
 
Public Class Form1
 
    Private t As Threading.Thread
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
            Handles Button1.Click
        With Me
            .t = New Threading.Thread(AddressOf GetMessage)
            .t.Start()
            .Button2.Enabled = True
        End With
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
            Handles Button2.Click
        With Me
            Try
                If .List.Count > 0 Then
                    .ListBox1.Items.AddRange(List.ToArray())
                    .Text = .List.Count.ToString() & " Items found"
                End If
            Catch ex As ArgumentOutOfRangeException
                MessageBox.Show(ex.Message.ToString(), "Info -" & _
                  "ArgumentOutOfRangeException")
            Catch ex As Exception
                MessageBox.Show(ex.Message.ToString(), "Info - Exception")
            End Try
        End With
    End Sub
 
    Private List As New List(Of String)
    Private Sub GetMessage()
        If List.Count > 0 Then List.Clear()
        Dim ev As EventLog = Nothing
        ev = New EventLog("Application")
 
        For Each Entry As EventLogEntry In ev.Entries
            Try
                List.Add(Entry.TimeWritten.ToString & " - " & _
                         Entry.Message.ToString().Replace(ControlChars.CrLf, "" & _
                         "").Replace(ControlChars.Lf, ""))
            Catch
                List.Add("---Error---")
            End Try
        Next
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
            Handles MyBase.Load
        With Me
            .ListBox1.HorizontalScrollbar = True
            .Text = "Windows Eventlogs auszulesen"
            .CenterToScreen()
            .Button1.Text = "Init list"
            .Button2.Text = "Get list content"
            .Button2.Enabled = False
        End With
    End Sub
 
    Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) _
            Handles ListBox1.MouseDown
        Select Case e.Button
            Case Is = Windows.Forms.MouseButtons.Left
                MessageBox.Show(Me.ListBox1.SelectedItem.ToString(), "Info")
            Case Is = Windows.Forms.MouseButtons.Right
        End Select
    End Sub
 
End Class