COPY TEXTBOX的内容

COPY TEXTBOX的内容 
怎样复制TEXTBOX里的内容到剪贴板里？就像是注册机的那种，算出序列号了？ 

怎么复制多个TEXTBOX里的内容到剪贴板？可几个框框里，要一下能将这几个TEXTBOX里的全复制？并且组合起来。 
比如有四个TEXTBOX， 
XXXXX-XXXXXX-XXXXXX-XXXXX   
TEXTBOX1-TEXTBOX2-TEXTBOX3-TEXTBOX4 
要复制四个TEXTBOX里的内容。 
XXXXX-XXXXXX-XXXXXX-XXXXX 就像这样的效果，将这四串全复制再联到一起 
刚学的，所以最好帮忙搞几个例子，不然看不明白，谢谢 
--------------------编程问答--------------------     Private Sub TextBox4_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.Leave
        Dim Sn As String = TextBox1.Text & "-" & TextBox2.Text & "-" & TextBox3.Text & "-" & TextBox4.Text
        My.Computer.Clipboard.SetText(Sn)
    End Sub
--------------------编程问答-------------------- 看看。 --------------------编程问答-------------------- 一楼就是正解。 --------------------编程问答--------------------     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        '拷贝数据
        Clipboard.SetDataObject(TextBox12.Text + "-" + TextBox13.Text + "-" + TextBox14.Text + "-" + TextBox15.Text + "-" + TextBox16.Text + "-" + TextBox17.Text + "-" + TextBox18.Text)

    End Sub --------------------编程问答-------------------- 4楼的正解。。

补充：.NET技术 ,  VB.NET