Private Sub copier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Clipboard.SetText(TextBox1.SelectedText) End Sub Private Sub coller_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.SelectedText = Clipboard.GetText() End Sub
Clipboard.SetText(TextBox1.SelectedText)
Clipboard.SetText(TextBox1.Text)