vb中使用剪贴板的有关问题

vb中使用剪贴板的问题
在VB中使用剪贴板的时候,如这个
    Private   Sub   Command1_Click()         '将文本框选中的内容复制到剪粘板中
    Clipboard.SetText   Text1.SelText
End   Sub
这样是指定了是text1中的选中文本,我现在想实现的是复制别的文本框中,
那我需要再写clipboard.settext   text2.seltext
我想问的就是,有没有什么办法,让我直接能取到的就是页面是选定部分的文本.
谢谢各位大侠了!

[解决办法]
Private Sub Command1_Click()
'将文本框选中的内容复制到剪粘板中
a = Text1.SelText
MsgBox a 'a里就是
End Sub

[解决办法]
可以做成一点text就复制到剪贴板的功能
你说的这个功能人家一个Ctrl+C不就可以了.