[VB6] Problema con code en la ejecucion!

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! Cool

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 Afro

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!!

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. - Julio 05, 2008, 05:02:04 Boton Buscar