SoloCodigo

Private Sub Command1_Click()
If File1 = "" Then
MsgBox " No hay ningún archio seleccionado", vbInformation, "Error"
Else
cd.Filter = "Archivos GIF'S|*.gif|Archivos JPG|*.jpg|Archivos BMP|*.bmp|Archivos PNG|*.png"
cd.ShowSave
If cd.FileTitle = "" Then
Exit Sub
Else
FileCopy File1.Path & "\" & File1.FileName, cd.InitDir & "\" & cd.FileTitle
File1.Refresh
End If
End If
End Sub

Ahora si te capté la idea.
Pero te informo que no es posible cargar un archivo de imagen directamente en un control de imagen. En el control PictureBox si es posible hacer esto, por ejemplo:

Código: Text

1. Picture1.Picture = LoadPicture(gstrFilename)
2.  

Si aún insiste en que deseas cargarlo en un control de imagen entonces debes de hacer lo siguiente:

Código: Text

1.         Picture1.Picture = LoadPicture(gstrFilename)
2.         Image1.Picture = Picture1.Picture
3.  
4.  

Para que no se vea el control Picture le colocas la propiedad visible=False.

Como no tenía mucho que hacer, te elaboré un pequeño proyecto que adjunto para demostrarte lo anterior.