Private Sub EventLog1_EntryWritten(ByVal sender As System.Object, ByVal e As _
  System.Diagnostics.EntryWrittenEventArgs) Handles EventLog1.EntryWritten
 
        ListBox1.Items.Add(e.Entry.Source & " : " & e.Entry.Message)
 
End Sub