hola boluart me parece interesante el tema que propones
y me gustaria saber como se maneja el codigo,
Dim a As NewEventLog
Private Sub Command1_Click()
Dim objEventLog As EventLogEntryCollection
Dim objEntry As EventLogEntry
a.Log = "Application"
objEventLog = a.Entries()
MsgBox (objEventLog.Count)
For Each objEntry In objEventLog
TextBox1.Text = (objEntry.Source & ":" & objEntry.TimeGenerated & ":" & objEntry.Message) & Chr(13) & Chr(10)
Next
End Sub
cuando lo ejecuto me dice:no se ha definido el tipo definido por el usuario,
que me hace falta?
te agrdezco la ayuda.