在win7操作系统上运行出错runtime error 380，请高手帮忙

以下是代码，高手帮忙看看啊，谢谢指教



 Dim x As String
        
        keybd_event vbKeySnapshot, 1, 0, 0
        
        DoEvents
        x = "E:\VB\设施部工单管理系统B\New Folder\请购\" + login.enter + Format(Now, "yyyymmddhhmmss") & ".BMP"
        SavePicture Clipboard.GetData(vbCFBitmap), x
   --------------------编程问答-------------------- 你单步调试一下，看看问题是出在那一句上的？是不是你的文件路径有问题？ --------------------编程问答-------------------- 谢谢！
打包安装后就好了，怎么解决的自己也不是非常清楚；
单位的电脑IT设了很多权限，也不知道是不是这个原因

补充：VB ,  基础类