参考
ClipBoard.setImage(getimage("d:\test.jpg"))
或者
Dim ls As new System.Collections.Specialized.StringCollection
ls.add("d:\test.jpg")
ls.add("d:\test.xls")
My.Computer.Clipboard.SetFileDropList(ls)
获取,如代码
Dim ls As System.Collections.Specialized.StringCollection = My.Computer.Clipboard.getFileDropList
msgbox(ls.count)
For Each s As object In ls
msgbox(s)
Next