Private Sub Command1_Click()
Dim msg As String
On Error GoTo serror
Image1.Picture = LoadPicture(("D:\新建文件夹\7cac90de77ae270acdbf1a41.jpg"))
Exit Sub
'增加的serror:
If Err.Number = 68 Then
msg = "当前图片不存在"
MsgBox msg
Resume Next
Else
msg = "错误代码为:" & Str(Err.Number)
msg = msg & ...