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

现在只能选取一个文本框里的内容：若同时选取两个到多个文本框的内容，应如何写选取、复制？
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

现在只能选取一个文本框里的内容：若同时选取两个到多个文本框的内容，应如何写选取、复制？
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里的数据，然后全部复制哪位高手能帮我看看该怎么写？多谢！

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

[ 本帖最后由 益西翁登 于 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)
不知道对不对，有结果的话说一下，参考参考。

谢谢爱神的箭解答，我试过了，这样还是不行，只能选中其中的一个文本框里的内容，不能全部选中

无法达到全选的目的，这样看似简单的东西，难倒了这么多大师