vb 复制粘贴

Clipboard，剪贴板，可以对某项进行剪切、复制或粘贴操作
方法
With Clipboard
.Clear '清除剪贴板里的所有内容。建议执行以下方法时先执行这个语句。
.SetText <要复制的内容>,<复制方式> '将字符串按指定格式存入Clipboard对象中（如果<复制方法>不写，将按默认值进行）。例如，将Text1中的选定内容复制到剪贴板中，代码是Clipboard.SetText Text1.SelText
.GetText (<粘贴方式>) '从剪贴板返回的一个字符串。（<粘贴方式>可以不写，但是括号不能删掉）例如，将该字符串粘贴到Text1的光标处或选定部分（会把原来选定部分删除），方法是Text1.SelText = Clipboard.GetText()
.SetData <存入图形>, <方式> '与SetText相似，只不过是将图形数据按指定格式存入Clipboard，代码也相似。如果<方式>为空，则由系统自动判定。
.GetData (<粘贴方式>) '与GetText相似，只不过是将图形数据粘贴至某处，但不允许删除括号。代码也相似。如果<方式>为空，则由系统自动判定。
.GetFormat '一般用于检查剪贴板某项中是否存在一些东西。有则返回True，否则为False。可同时包含文字和图形，互不干扰。
End With
SetText 和 GetText 的复制/粘贴取值
内部常数| 值 | 含义
VbCFText| 1 | （默认值）文本
VbCFRTF | &HBF01| RTF 格式
VbCFLink| &HBF00| DDE 对话信息
SetData 和 GetData 的复制/粘贴取值
内部常数 值 | 含义
vbCFBitmap | 2 | 位图 (*.bmp)
vbCFMetaFile| 3 | 元文件 (*.wmf)
vbCFDIB | 8 | 与设备无关的位图(DIB)
vbCFPalette | 9 | 调色板

剪贴板就是Clipboard 啊。
－－－－－－－－－－－－－－－－－－－
'将剪贴板里放入字符"2008"
Clipboard.Clear
Clipboard.SetText ("2008")