Private Sub cmdCreateLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateLog.Click
        Dim ev As New EventLog()
        Try
            'Next check for the existence of the log that the user wants to create.
            If Not ev.Exists(txtLogNameToCreate.Text) Then
                ' If the event source is already registered we want to delete it 
                ' before recreating it on the call to CreateEventSource
                If ev.SourceExists("How-To Use the EventLog") Then
                    ev.DeleteEventSource("How-To Use the EventLog")
                End If
                ev.CreateEventSource("How-To Use the EventLog", txtLogNameToCreate.Text)
            Else
                MessageBox.Show("Log :" & txtLogNameToCreate.Text + " already exists.", _
                    "Log Exists", _
                    MessageBoxButtons.OK, _
                    MessageBoxIcon.Exclamation)
            End If
        Catch ex As Exception
            MessageBox.Show("Unable to Create Event Log, the message was: " & ex.Message & " This may be due to a lack of appropriate permissions.", _
                "An Exception was thrown", _
                MessageBoxButtons.OK, _
                MessageBoxIcon.Exclamation)
        Finally
            'Close the log.
            ev.Close()
        End Try
    End Sub