Evento OnIMWindowCreated en la API de Messenger

[FaiF (A¥åHøRå)]

Estoy intentando crear un programa que cierre la ventana de conversación del messenger si esta es de cierto contacto (encarta@conversagent.com x ejemplo xD) usando la API de Messenger.

El código que uso es el siguiente pero es como si no me detectara que se abre la ventana ni nada. A ver si alguien me sabe ayudar.

Código [Seleccionar] Expandir

Public WithEvents MSN As Messenger 'API de Messenger
Private WithEvents objMessenger As MessengerAPI.Messenger

Private Sub Form_Load()
Set objMessenger = New MessengerAPI.Messenger
Set MSN = New Messenger
End Sub

Private Sub objMessenger_OnIMWindowCreated(pIMWindow As Object)
Dim Contactoshablan As IMessengerContacts
Dim ventana As IMessengerConversationWnd
Set ventana = pIMWindow
Set Contactoshablan = ventana.Contacts
If Contactoshablan.SigninName = "encarta@conversagent.com" Then
ventana.Close
End If
End Sub

Salu2 

[FaiF (A¥åHøRå)]

No ha trabajado nadie antes con esta API para realizar lo que propongo???
Es que no veo dónde está mi error...

Salu2 

[NYlOn]

Yo si trabaje con las APIs del MSN pero nunca me anduvo ningun evento...
Por ahi solo funcionan en versiones anteriores del MSN. La verdad no se...

Si encuentro algo te aviso, saludos.-

[FaiF (A¥åHøRå)]

Es que estoy muy desesperado jeje. Con el evento Onwindowdestroyed si que lo conseguí, pero con este nada de nada y eso que intenté usar la misma estructura que en otro...

A ver si alguien por ahí sabe algo más...

Salu2 

[chebu]

Private Sub MSN_OnIMWindowCreated(ByVal pIMWindow As Object)