Have a look at this:
Back Up and Clear an Event Log(Microsoft) [
^]
Also a Code Snippet:
Private Declare Function BackupEventLog Lib "advapi32.dll" Alias "BackupEventLogA" (ByVal hEventLog As IntPtr, ByVal lpBackupFileName As String) As Integer
Private Declare Function CloseEventLog Lib "advapi32.dll" (ByVal hEventLog As IntPtr) As IntPtr
Private Declare Function OpenEventLog Lib "advapi32.dll" Alias "OpenEventLogA" (ByVal lpUNCServerName As String, ByVal lpSourceName As String) As IntPtr
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hEventLog As IntPtr
Dim lretv As Integer
hEventLog = OpenEventLog(vbNullString, "Application")
If hEventLog = IntPtr.Zero Then
System.Diagnostics.Debug.Write("OpenEvent Log Failed")
Exit Sub
End If
lretv = BackupEventLog(hEventLog, "appback.evt")
If lretv = 0 Then
Debug.Write("BackupEventLog Failed")
Exit Sub
End If
End Sub