Visual Basic - portapapeles

My.Computer.Clipboard.SetText("primer texto " & TextBox1.Text & " segundo texto")

SendKeys.Send("%{TAB}")

msgbox(My.Computer.Clipboard.GetText())

SendKeys.Send("^+v") "para que pegue la informacion pero no me da resultado"

SendKeys "%{TAB}"

SendKeys "Hola buen dia le atiende " & Text1.Text & " ¿en que puedo ayudarle?"

SendKeys.Send("^v")

SendKeys.Send("^+v") "para que pegue la informacion pero no me da resultado"

'primero probemos conceptos

dim X as String  ' Declara una variable String 

X= "primer texto " & TextBox1.Text & " segundo texto"  Esto es lo qeu se debe copiar

My.Computer.Clipboard.SetText(X)

msgbox X  ' Para ver que lo que puse en el portapeles se va a ver bien ..... 

'SendKeys.Send("%{TAB}")' Comenta esta Linea 

msgbox(My.Computer.Clipboard.GetText())

'Crea otro textbox 2 

text2.setfocus

SendKeys.Send("^v")

'Mira si se pego el contenido.

Dim X As String

X = "primer texto " & TextBox1.Text & " segundo texto"

My.Computer.Clipboard.SetText(X)

SendKeys.Send("%{TAB}")

System.Threading.Thread.Sleep(250) 'aqui he indicado que espere un tiempo y después siga con el proceso (pausa de 250 ms)

SendKeys.Send("^v")

My.Computer.Clipboard.SetText("primer texto " & TextBox1.Text & " segundo texto")

SendKeys.Send("%{TAB}")

System.Threading.Thread.Sleep(250)

SendKeys.Send("^v")