Primero no es file1 solo, tienes que especificar el nombre de archivo file1.filename y segundo para poder "cargar" una imagen te falta el Loadpicture... Te pongo el codigo:
Dim imagen As String
imagen = Dir1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(imagen)
Ahora si te va a dar...
