错误424,要求对象

请教:在VB中分别添加了Picture,drive,dir,file控件,代码如下

Private Sub Dir1_Change()
File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
If Err.Number > 0 Then
MsgBox "设备没有准备好！", vbCritical
End If
End Sub

Private Sub File1_Click()
Dim filename1 As String
If Right(File1.Path, 1) = "\" Then
filename1 = File1.Path & File1.FileName
Else
filename1 = File1.Path & "\" & File1.FileName
End If
image1.Picture = LoadPicture(filename1) '这名出现"错误424,要求对象"

End Sub

Private Sub Form_Load()
File1.Pattern = "*.gif;*.jpg;*.jpeg;*.ico"

End Sub

Private Sub Picture1_Click()

End Sub

这是在网上找到的视频例子,在视频中人家的就能通过,而我这个就出现错误了,由于是初学,找不到原因,特在此问问,不胜感激,谢谢了
--------------------编程问答-------------------- 出现过这方面错误的不吝赐教,多谢了! --------------------编程问答-------------------- 是问题太简单了还是大家都没遇到过类似问题,为什么都不愿回答呢 --------------------编程问答-------------------- 我也出现Err.number=424的情况，搞不懂也 --------------------编程问答-------------------- set image1.Picture = LoadPicture(filename1) 
试试看 --------------------编程问答-------------------- 楼主啊，你添加的是picturebox，而不是Image啊……当然报错了。。。 --------------------编程问答-------------------- 蛋贴……
楼主木有小jj
--------------------编程问答-------------------- 不懂..................

补充：VB ,  控件