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

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

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

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

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