[VB6] Problema con code en la ejecucion!

[skullmaster-Back-]

Hola bueno miren mi problema es este, este code va en un command y al ejecutar el comand la primea vez el code funciona al 100% pero si le vuelvo a dar me tira error! :S aqui les dejo el code y el nombre del error...

Código:

Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox ("Agrega Algun mensaje"), vbInformation, "MSN Manager"
End If

Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact
Dim car As IMessengerConversationWnd
For Each user In MsgrUIA.MyContacts
If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or _
user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then
Set car = MSN.InstantMessage(user)
        SendKeys Text1.Text, True
        SendKeys "{ENTER}", True
car.Close
End If
Next
Text1.Text = ""
End Sub

ese es el code y el nombre del error es:

Run-Time error - '445'
Objecto Dosen't Support this action

a ver si me puede ayudar! :S

Salu2's!

[Proxy Lainux]

hola

a ver si entendi bien... cuando haces click se enlistan todos los contactos, pero cuando vuelves a hacer click sobre el boton te aparece el error?.. si o estoy mal?

si es si, puedes intentar hacer dos cosas... una es, antes de..

If Text1.Text = "" Then ...

coloca on error resume next, para ke no le tome importancia y siga ejecutando el codigo...

o coloca otro boton temporal y cuando enlistes los contactos, con el segundo boton intenta borrar todo.. creo ke estas usando un text... asi ke borralo... text1.text="" ... y vualve a intentarlo.. si funciona kiere decir ke tendras ke buscar la forma de borrr todo antes de volver a enlistar los contactos...

avisa si lo lograste o si todavia sigue el problema para seguir ayudandote...

nos vemos 

[skullmaster-Back-]

mmm bueno parece que ya no me tira error!xD Grax, era raro porque habia ya probado con el Error Resume Next y me lanzaba el mismo error!

Gracias!!