McEventLogEntry Interface

Public Interface McEventLogEntry
	Inherits IMcEventLogEntry

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmEventLog 
   Caption         =   "Form to Raise EventLog EntryWritten Event"
   ClientHeight    =   3225
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4710
   OleObjectBlob   =   "frmEventLog.frx":0000
   StartUpPosition =   1  'CenterOwner
End





Public WithEvents EventLg As McEventLog
Attribute EventLg.VB_VarHelpID = -1

Private Sub CmdWriteEventLog_Click()
    Set EventLg = EventLog
    WriteAnEntryIntoEventLog EventLg
End Sub

' Entry Written event that is called when the Entry in written to the Log file
Private Sub EventLg_EntryWritten(ByVal Entry As IMcEventLogEntry)
   AccessingEventLogEntry Entry
End Sub