求解vb代码（自动复制，和自动粘贴）

Private Sub Command1_Click()
s = "我是剪贴板中的内容"
Clipboard.Clear '清空剪贴板
Clipboard.SetText s '将变量s文本赋给剪贴板
Text1 = Clipboard.GetText '将剪贴板中文本赋给text1
Clipboard.Clear
Clipboard.SetData Picture1 '将picture1中图像赋给剪贴板
Picture2.Picture = Clipboard.GetData '将剪贴板中图像放到picture2中
SavePicture Clipboard.GetData, "d:\11.bmp " '将剪贴板中的图像保存到"d:\11.bmp"中
Text1.SelStart = 1
Text1.SelLength = 4
Print Text1.SelText
Text1.SetFocus
End Sub
'SelLength -返回或设置所选择的字符数?
'SelStart－返回或设置所选择的文本的起始点；如果没有文本被选中，则指出插入点的位置。
'SelText－返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为零长度字符串 ("")。'Clipboard只有方法，没有属性和事件。方法还有GetFormat

clipboard.seltext "文本内容" '复制文字到剪贴板 X=clipboard.gettext 'X是所粘贴的对象，gettext是获取剪贴板中的内容