hola, mi problema es el siguiente:

Los pasos que sigo para cambiar el nick son estos
1-En proyecto,referencias; agrego messenger api type library
2- declaro esto : 3-en el form_load() : y al ejecutarlo me sale una pantalla como si no hubiera iniciado sesion o algo similar:

Lo raro es que hace un rato si que podia cambiar el nick , ¿que estoy haciendo mal?

ahora tampoco me deja cargar la lista de contactos conectados en un listbox !
me sale un error de compilacion en la palabra user(antes no me salia =S)

saludos

pues tampoco me funciona, sale muy rapido la ventana de opciones del MSN y se cierra. no se que puede pasar  porque antes me funcionaba y tambien podia cargar la lista de contactos en un listbox, que me saliera el nick en un msgbox...etc
Y ahora no, por ejemplo al poner lo de que me saliera el nick en un msgbox me sale un error que dice:
 Run-time error '-2130705634 (8100031e)':
Method '~' of object '~' falied

cual puede ser el problema

he reiniciado el ordenador y ahora en la pantalla de opciones me sale mi nick, y con este ultimo code si puedo cambiarlo.gracias , y he estado probando y con este otro tambien :
 

Ya voy aprendiendo

Private WithEvents MSN As MessengerAPI.Messenger
 
Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Set contactos = MSN.MyContacts
 
For Each contacto In contactos
    If contacto.Status <> 1 Then '1 = offline, no utilizes tantos "or" en tu código...
        List1.AddItem contacto.SigninName
    End If
Next
End Sub
 

Editado. A parte de que me falto el "saludos ", se me olvidó decirte que si estás usando el option explicit, tenes que declarar obligatoriamente cada variable, para el user, podes poner al principio del código "Dim user".