Deletes a log from the specified computer : EventLog « Windows « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows
3. EventLog

Option Explicit
Option Strict

Imports System
Imports System.Diagnostics
Imports System.Threading

Class MySample
    Public Shared Sub Main()
        Dim logName As String

        If EventLog.SourceExists("MyOldSource", "myServer") Then
            logName = EventLog.LogNameFromSourceName("MyOldSource", "myServer")
            EventLog.DeleteEventSource("MyOldSource", "myServer")
            EventLog.Delete(logName, "myServer")

            Console.WriteLine((logName & " deleted."))
        End If
    End Sub
End Class