[RaggiTech]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim LogName As String = "BADRMEDIA"

If EventLog.Exists(LogName) Then

EventLog.Delete(LogName)

MessageBox.Show(LogName & "Deleted")
Else
MessageBox.Show("Not Found" & LogName)
End If

End Sub

فى هذا الكود نبحث عن سجل باسم معين وهو BADRMEDIA ونحذف فى حالة لو وجدناه