程序第一次运行会提示380错误,再重新运行就好了，但是重启电脑还是会出现同样的问题

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command3_Click()
Dim filePath As String
filePath = "D:\" & Text22.Text & "_v1.bmp"
'keybd_event vbKeySnapshot, 0&, 0&, 0&
keybd_event vbKeySnapshot, 1, 0, 0
DoEvents
Me.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Me.Picture, filePath
Label27(1).Caption = "截图已保存到当前路径！"
End Sub

这个截图功能是copy来的，也不是很懂，出了问题也不知道是什么原因，百度了很多网页也没有找见答案，只能求助于贴吧的大佬了！

搞不懂，不过你可以尝试通过断点的方式定位到底哪一句出了问题（MsgBox也是编译执行的程序的一种断点手段）

而且有一点比较奇怪，程序运行后第一次截图才报告这个错误，第二次运行就好了，
而且发现，每次保存的截图都是上一次点击保存时的画面

'　添加给【Text22】赋初值的语句
Private Sub Form_Load()
Text22.TXT = "tu666"
End Sub

'　当前路径的描述
Option Explicit
Public mPath As String
Private Sub Form_Load()
mPath = App.Path '　获取路径（结束位置是反斜杠）
If Right(mPath, 1) <> Chr(92) Then
mPath = mPath & Chr(92)
End If
Text22.TXT = "tu666"
End Sub
'　以后使用字符型变量【mPath】作为【当前路径】。

Private Sub Form_Load()
Text22.TXT = "tu666"
Call Command2_Click
mPath = App.Path '　获取路径（结束位置是反斜杠）
If Right(mPath, 1) <> Chr(92) Then
mPath = mPath & Chr(92)
End If
End Sub
Private Sub Command3_Click()
Dim filePath As String
filePath = "temp.bmp"
filePath = mPath & Text22.Text & "_v1.bmp"
keybd_event vbKeySnapshot, 1, 0, 0
DoEvents
Me.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Me.Picture, filePath
Label27(1).Caption = "截图已经保存到本程序所在目录!(" & App.Path & ")"
End Sub

测试了一下，用单独一次Sleep，
即使是用了 1000ms 的延时，还是很容易出现问题。
这样处理比较有效（延时还比较小）：
keybd_event vbKeySnapshot, 0, 0, 0
'DoEvents
Dim i As Long
For i = 1 To 20
Call Sleep(5)
DoEvents
Next
Me.Picture = Clipboard.GetData(vbCFBitmap)