用Computer类里的Clipboard的几个Get函数
泸溪ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为成都创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！
如获取剪贴板里的文本
Dim c As New Microsoft.VisualBasic.Devices.Computer
MsgBox(c.Clipboard.GetText())
可以直接用My 里的
MsgBox(My.Computer.Clipboard.GetText())
获取图片
Me.BackgroundImage = My.Computer.Clipboard.GetImage()
在获取前确定剪贴板里有没有文本
If My.Computer.Clipboard.ContainsText Then
MsgBox(My.Computer.Clipboard.GetText)
End If
设置剪贴板里的文本
My.Computer.Clipboard.SetText(Now)
Clipboard.SetText()是方法，必须给它传递参数才能将内容保存在剪切板上。
Clipboard.SetText(TextBox1.Text);
SelectedText是只读属性，只能读取文本框内选定的内容，而不能对其赋值。
Clipboard.GetText()用于获得剪切板内的内容。如：
TextBox2.Text=Clipboard.GetText();
复制文件夹不用剪贴板，使用系统文件操作对象就好了
CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"