SoloCodigo

hola:
 espero que asi como solucionaron el problemilla anterior hay una forma sencilla tambien desde abrirlo de una caja de dialogo,y redimensionarla es una manera sencilla y sin tanta dedicacion. espero les guste y sobretodo les sirva.

se utiliza un Commanddialog en la plantilla "Form" en cualquier parte de esta, busquenlo en las herramientas para insertar osea elementos.

el codigo en un boton de "obtener foto es:"
----------------------------------------------------------------------------------------------

Dim FILTROS As String
On Error GoTo MANIPULARERRORABRIR
CommonDialog1.CancelError = True
FILTROS = "IMAGENES DE FOTO PSIQUE(*.bmp)|*.bmp|" & "IMAGENES DE FOTO PSIQUE(*.JPG)|*.JPG|" & "IMAGENES DE FOTO PSIQUE(*.JPEG)|*.JPEG|"

CommonDialog1.Filter = FILTROS
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
CommonDialog1.InitDir ="C:\carpeta don de quieres que abra la caja de   texto"
TT = CommonDialog1.FileTitle   ' TT es una variable de la misma caja de dialogo
EE = CommonDialog1.FileName 'EE es una variable tipo string que se define como
                                               EE  AS string en la parte  "general"

Form1.Image1.Picture = LoadPicture(EE) ' aqui se carga la informacion de la imagen y su ruta
Image1.Height = el valor de la altura que deseamos que tenga la imagen
Image1.Width = el valor del ancho que tambien deseamos que tenga la imagen

SALIRABRIR:
Exit Sub
MANIPULARERRORABRIR:
If Err.Number = CDCANCEL Then Exit Sub
MsgBox Err.Description
Resume SALIRABRIR
--------------------------------------------------------------------------------------------
espero que les sirva a mi me sirvio mucho y esta es la forma mas sencilla que encontre. saludos cualquier cosa pregunten igual aprendo de ustedes tambien