感谢您使用微软产品。您可以如下例调用Clipboard的SetText方法:Private Sub Command1_Click()
    If Text1.SelLength > 0 Then
        Clipboard.SetText Text1.SelText
    End If
End Sub详细信息请参考:
Cutting, Copying, and Pasting Text with the Clipboard
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconcuttingcopyingpasting.asp
SetText Method Example
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/vbmthsettextx.asp- 微软全球技术中心 VB技术支持本帖子仅供CSDN的用户作为参考信息使用。其内容不具备任何法律保障。您需要考虑到并承担使用此信息可能带来的风险。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境,请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
======================