Private Sub cmdDeleteLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteLog.Click
        Dim ev As New System.Diagnostics.EventLog()
        Try
            If ev.Exists(txtLogNameToDelete.Text) Then
                'Next call the delete method of the log that the user wants to delete.
                ev.Delete(txtLogNameToDelete.Text)
            Else
                MessageBox.Show("Log " + txtLogNameToDelete.Text + " does not exist, therefore it cannot be deleted.", _
                    "Log Does not Exist", _
                    MessageBoxButtons.OK, _
                    MessageBoxIcon.Error)
            End If
        Catch ex As Exception
            MessageBox.Show("Unable to delete 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
            ev.Close()
        End Try
    End Sub