Visual Basic - ayudaaa.por k no funciona esto?

por fa no se por k me sale algun error .. por k no me arranca

**Me sale un error de k :
(ESTE PROGRAMA A PRODUCIDO UNA OPERACION N ADMITIDA Y SERA INTERUMPIDA)

**Y Si yo quito el (Set MSN = New Messenger) me aparece un error de qUE :
(NO ESTA DEFINIDA EL TIPO DE OBJECT O LA VARIABLE DE BLOQUE WITH NO ESTA ESTABLECIDA)

**Yo utilizo el MSN 7

las referencias k tengo son las siguientes : las 4 primeras son por default k ya estan aceptadas
-------------------------------------------------------------------------------
visual basic for Applications
visual basic runtime objects and procedures
visual basic objects and procedures
ole automation
messenger api type library

--------Y este es el Codigo k pongo -----------------------------------

Public WithEvents MSN As MessengerAPI.Messenger

Private Sub Command1_Click()
Set MSN = New Messenger
MSN.Signin 1, Trim(Text1.Text), Trim(Text2.Text)
End Sub
-------------------------------------------------------------------------

por fa diganme por k no funkaaaaaa.. ayudenmeeeee

Si en lugar del 1 le pones el 0 funcions, mas no bien, ya que sale la pantalla donde tienes que poner la clave

Aun asi, no veo porque tanta insistencia de logear en el msn mediante vb. Mediante vb se pueden hacer muchas cosas con la api de msn, no solo logear

eso tambien ya lo hice y nada de nada.... alguna otra opcion k me puedas dar para lograr eso.. y dime si ese codigo funciona con el MSN 7