我想做一个命令按钮
作用是单击后有会将指定的文本复制到粘贴板里
就像用鼠标右键复制的效果一样

最简单的方法就是借助剪切板对象。
Private Sub Command1_Click()
   Clipboard.SetText Text1.Text '复制文本
   MsgBox Clipboard.GetText '提取剪切板的文本内容
End Sub

复制： clipboard.clear
       clipboard.settext text.seltext
粘贴： text.seltext=cloboard.gettext
在按钮的右击事件中写入。