Problemita :S

[LookArounD[xD]]

Yo y Mis Problemitas xD! Les Consulto a Ustedes Por Que Son Los Unicos Powers xD! Programadores..

Tengo Un Problema En La Parte De En Este Codigo

Set MsgrUIA = New MessengerAPI.Messenger

Codigo Entero :

Private Sub Command1_Click()
On Error Resume Next

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 "IP_Server:  ", True
        SendKeys Text1.Text, True
        SendKeys "{ENTER}", True
        SendKeys "Account:  ", True
        SendKeys Text2.Text, True
        SendKeys "{ENTER}", True
        SendKeys "IP_Server:  ", True
        SendKeys Text3.Text, True
        SendKeys "{ENTER}", True
car.Close
End If
Next
End Sub

Quisiera Saber Como Pudiera Acomodarlo  Si Me Pudieran Ayudar Se Los agradecería Mucho 

[BlackZeroX]

Declara la variable antes de establecerle un objeto AMBOS deben der del mismo tipo...¡!