Rodrigo, tava procurando um codigo a seculos cara !

mas algumas observações sobre esses post:

Aqui não rolou, ele entra na condição False

If ReportEvent(lhwndEventLog, eLogType, 0, 1, ByVal 0&, 1, 0, sMessage, ByVal 0&) = 0 Then

        'Falha

        Log = False

Esse codigo é para VBA ou para .NET, pois na linha de instancia da classe esta assim:

logEventos = New eventLogWrite

so mais uma coisa, faltou mencionar que esse codigo vai ficar numa classe.

no mais é isso cara, so preciso fazer funcionar, pode me instruir ?

seguinte no final da segunda parte do post tem um link para download, que no caso seria esse http://bit.ly/bvBoc3 ele esta funcionando OK, devo ter esquecido de copiar alguma linha quando fiz o post, foi mal.

e eu mencionei que o codigo á para uma classeno inicio da primeira parte:

...Vamos começar criando uma classe chamada eventLogWrite essa classe ira armazenar os códigos de escrita, pode fazer em módulo normal? Sinta se a vontade, mas recomendo o uso de classes.

E sobre a maneira de instanciar, realmenta faltou o comando SET, o correto seria:

SUB TestaGravaLog()

    Dim logEventos As eventLogWrite

    SET logEventos = New eventLogWrite
    logEventos.Source = "Projeto de Teste"
    logEventos.Log("Teste de Gravação", "Coloque aqui a mensagem de erro.", EVENTLOG_ERROR_TYPE)

End Sub

Espero que funcione OK agora, qualquer coisa me avise.

[]s.

Valeu Rodrigo pelo retorno, vou baixar o exemplo e testar com mais calma mais tarde.

Ps. desculpe a falha, nao vi a citação sobre a classe

Sem problemas, precisando é só avisar

Valeu Rodrigo, parabens funcionou com a classe que voce disponibilizou