获取剪切板的内容
http://www.foxtable.com/webhelp/scr/2069.htm
If ClipBoard.GetImage IsNot Nothing Then ClipBoard.GetImage.save("d:\test.jpg")End If