Esta va para mad o para otro

[crauss]

Tengo una pregunta nose si te acuerdas que desvelastes los comandos del kick now
    CommandXP1.Enabled = False
    Clipboard.Clear
    Clipboard.SetText "el signo muchas veces"
    AppActivate "Conversación"
    Sleep "50"
    For i = 1 To 900
        SendKeys "^v"
        SendKeys "{ENTER}"
    Next i
    CommandXP1.Enabled = True
pero si en vez de poner un signo puesto en ese programa que lo ponga el usuario quiero deci un simple Text1.Text

    CommandXP1.Enabled = False
    Clipboard.Clear
    Clipboard.SetText:pero entonces aqui como seria
    AppActivate "Conversación"
    Sleep "50"
    For i = 1 To 900
        SendKeys "^v"
        SendKeys "{ENTER}"
    Next i
    CommandXP1.Enabled = True
como sera en la parte Clipboard.SetText que tendria que poner para que coja el texto que hay en el text1.Text y lo envie 600 o el numero determinado de veces

gracias por la antencion porfavor contestadme

[demoniox12]

Clipboard.SetText Text1.Text

salu2!

[Mad Antrax]

Sería lo mismo, sustituyendo el carácter :[ por el valor del texto:

Clipboard.SetText Text1.Text

EDIT: Ah! coño, ya lo contesto correctamente demoniox12

[[Zero]]

Código [Seleccionar] Expandir

Dim contacto As IMessengerContact
For Each contacto In messengerapi.Messenger.MyContacts
If contacto.Status <> MISTATUS_OFFLINE Then
    contactos.AddItem contacto.SigninName
End If
Next

'***********DESCONECTAR***********
Private Sub cmddesconectar_click()
Dim i As Integer
Dim x As IMessengerContact
x = txtcontacto.Text
For i = 1 To 300
messengerapi.Messenger.InstantMessage txtcontacto.Text
Clipboard.Clear
Clipboard.SetText textoaenviar.text
SendKeys "^v"
SendKeys "{ENTER}"
If x.Status = MISTATUS_OFFLINE Then
    i = "300"
End If
Next i
DoEvents
End Sub


Si lo haces con la API no da error al no tener la ventana del msn abierta 
Salu2