如何同时选取两个文本框里的数据？

现在只能选取一个文本框里的内容：若同时选取两个到多个文本框的内容，应如何写选取、复制？
Private Sub Command2_Click()
        On Error Resume Next
        Text2.SetFocus
        Text2.SelStart = 0
        Text2.SelLength = Len(Text2.Text)
End Sub

Private Sub Command3_Click()
        On Error Resume Next
        Clipboard.SetText Text2.SelText
End Sub

Clipboard.SetText Text2.SelText & vbcrlf & text1.seltext

这样不行？

     Clipboard.SetText  字符串      '不一定就是控件里的内容，可以是表达式，直接绘出的字符串，变量，都可以。

现在只能选取一个文本框里的内容：若同时选取两个到多个文本框的内容，应如何写选取、复制？
Private Sub Command2_Click()
        On Error Resume Next
        Text2.SetFocus
        Text2.SelStart = 0
        Text2.SelLength = Len(Text2.Text)
End Sub

Private Sub Command3_Click()
        On Error Resume Next
        Clipboard.SetText Text2.SelText
End Sub
以上只能选取text2 一个文本框里的数据，我想点击按钮同时选中text1、text2、text3里的数据，然后全部复制哪位高手能帮我看看该怎么写？多谢！

[ 本帖最后由 益西翁登 于 2012-12-30 07:41 编辑 ]

我感到很无助，问题，没有得到解决...........

这应当不是什么很难的问题吧，这么多高手怎么就不会呢？哪位能帮我写一下这段代码，谢谢！
现在只能选取一个文本框里的内容：若同时选取两个到多个文本框的内容，应如何写选取、复制？
Private Sub Command2_Click()
        On Error Resume Next
        Text2.SetFocus
        Text2.SelStart = 0
        Text2.SelLength = Len(Text2.Text)
End Sub

Private Sub Command3_Click()
        On Error Resume Next
        Clipboard.SetText Text2.SelText
End Sub
以上只能选取text2 一个文本框里的数据，我想点击按钮同时选中text1、text2、text3里的数据，然后全部复制哪位高手能帮我看看该怎么写？多谢！

直接点：
复制位置 = Me.TextBox1
复制位置 = Me.TextBox2
余同

整段代码应怎么写？这么短的时间，一百多号人看这个贴子，也没人给出个完整的答案吗？

[ 本帖最后由 益西翁登 于 2013-1-1 19:33 编辑 ]

继续悬赏求正确可行的答案，最好有详细的全选、复制原代码。

连个文本框里的内容如果同时选取复制到剪贴板的话，只能一次粘贴到剪切板上，即Clipboard.SetText Text1.SelText & Text2.elText这样的后果就是两个文本框的内容组合在一起了，要是分两次粘贴到剪切板的话， Clipboard.SetText Text1.SelText
                                                         clipboard.SetText Text2. seltext这样第二次的内容会替换掉第一次的内容；同时选中text1和text2里的内容倒是可以        Text2.selstart=0  text2.sellength=len(text2.text)   text1.seltext=0  text1.sellength=len(text1.text)
不知道对不对，有结果的话说一下，参考参考。