Visual Basic.NET - Uso de portapapeles

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim MyData As DataObject

    End Sub

    Private Sub CommandButton1_Click()

        Dim PP As DataObject

        Dim texto As String

        texto = "hola"

        PP = New DataObject

        PP.SetText texto

        PP.PutInClipboard

    End Sub

    Private Sub UserForm_Initialize()

    End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim UnaVariableTXT As String

    UnaVariableTXT = "Azerty"

    Clipboard.SetText(UnaVariableTXT)

    ' ... ... ...

    MessageBox.Show(Clipboard.GetText)   ' Tambien puede dar el resultado de un <CTRL><C>

    ' ... ... ...

    TextBox1.Text = Clipboard.GetText

    ' ... ... ...