VB6 代码管家-操作剪切板Clipboard.GetText (获得文字) 
例:text1.text = Clipboard.GetText()
Clipboard.GetData (获得图片) 
例:Picture1.Picture = Clipboard.GetData()  
Clipboard.SetText (设置文字) 
例:Clipboard.SetText Text1.Text
Clipboard.SetData (设置图片) 
例:Clipboard.SetData Picture1.Picture
Clipboard.Clear   (清空)  
Clipboard.GetFormat(1) (检测剪贴板中的内容) ,返回True则文字 ,返回False则其他