Imports System.Diagnostics Public Sub ListEventLog(ByVal logName As String) Dim objLog As New EventLog objLog.Log = logName If objLog.Entries.Count > 0 Then For Each l As EventLogEntry In objLog.Entries Next End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)