尼日利亚十大公司:有关vb的问题

'写了一个关于类似回收站的小程序
'Image1代表“文件”的图标
'Image2代表“小纸条”的图标
'Image3代表“回收站”的图标

'运行后没什么问题，但要是给传到邮箱再下载下来，图标全都不见了，而且回自动生成一个.txt文件，出现下面的提示：
'行 15:属性 Picture 在 Image3 中的文件引用无效。
'行 23:属性 Picture 在 Image2 中的文件引用无效。
'行 31:属性 Picture 在 Image1 中的文件引用无效。

'请问这是为什么？是不是图片没有加载进去无法显示啊？

Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
If Button = 1 Then
Image1.DragIcon = Image1.Picture
Source.Move (X - Source.Width / 2), (Y - Source.Height / 2)
End If
End Sub

Private Sub Image2_DragDrop(Source As Control, X As Single, Y As Single)
If Button = 1 Then
Image2.DragIcon = Image2.Picture
Source.Move (X - Source.Width / 2), (Y - Source.Height / 2)
End If
End Sub

Private Sub Image3_DragDrop(Source As Control, X As Single, Y As Single)
Dim i As Integer
If Source.Name = "Image1" Then
i = MsgBox("要删除文件吗？", vbOKCancel)
Else
i = MsgBox("要删除小纸条吗？", vbOKCancel)
End If
If i = vbOK Then
Source.Visible = False
End If
End Sub