错误424,要求对象

请教:在VB中分别添加了Picture,drive,dir,file控件,代码如下Private Sub Dir1_Change()
File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
If Err.Number > 0 Then
MsgBox "设备没有准备好！", vbCritical
End If
End SubPrivate 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 SubPrivate Sub Form_Load()
File1.Pattern = "*.gif;*.jpg;*.jpeg;*.ico"End SubPrivate Sub Picture1_Click()End Sub这是在网上找到的视频例子,在视频中人家的就能通过,而我这个就出现错误了,由于是初学,找不到原因,特在此问问,不胜感激,谢谢了