Add common dialog control tool 6.0 from component
Drag it to your form interface
Draw a Picture box
Name it at the property bar as dialog1
create a text box and name the text box as txtpicture
Create a command botton
Double click on the command botton

here is the code:
private sub command1_click()
dialog1.showopen
txtpicture.text = dialog1.FileName
Picture1.picture = Loadpicture (txtpicture.text)
end sub

Try it and find it real..........