Tengo este codigo

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public WithEvents MSN As Messenger
Public WithEvents MsgrUIA As MessengerAPI.Messenger
Private Sub Form_Load()
MsgBox (MSN.ContactsSortOrder)
End Sub


Cuando lo inicio me dice un error de la memoria. tengo la referencia definida

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public WithEvents MSN As Messenger
Public WithEvents MsgrUIA As MessengerAPI.Messenger
Private Sub Form_Load()
Set MSN = New Messenger
Set MsgrUIA = New MessengerAPI.Messenger
MsgBox (MSN.ContactsSortOrder)
End Sub
 

Saludos.

Será por la función que utilizas. Prueba a utilizar otra función de la API a ver si pasa lo mismo.

Saludos.

A ver, prueba con esto:

Option Explicit
Public WithEvents MSN As Messenger
 
Private Sub Form_Load()
Set MSN = New Messenger
MsgBox MSN.MyFriendlyName    'Devuelve el nick actual.
End Sub

Con lo que tú pusiste me da "Error en el método 'ContactsSortOrder' del objeto 'IMessenger3'"

Saludos.

Pues entonces no sé de que puede ser.

Saludos.