Ajouter des Photos dans une zone image en VB6

Salut tout le monde

Je tente d'ajouter les photos sur la feuille de saisie des données des employés
sans résultat.

j'ai utiliser :

la composante CommonDialog, que j'ai nommé Com1

un boutton command ( que j'ai nommé cmdAjout )

une zone Image ( que j'ai nommé Imag1 )



Ma première tentative était comme suit

sub Private cmdAjout_Click ()
imag1.Picture= loadPicture ("C:\Documents and Settings\User\Bureau\Dossier Photos\Farid.pjg")


end sub

avec cette procédure je ne n'ai pas la possibilité de choisir entre les photos


Ma Deuxième tentative, selon laquelle l'option de choisir la photo à ajouter est possible,
est comme suit

sub Private cmdAjout_Click ()

Com1.ShowOpen

imag1.Picture= loadPicture ("C:\Documents and Settings\User\Bureau\Dossier Photos\Filename")


end sub

mais cette methode ne marche pas, car l'application ne reconnait pas le chemin

Je vous prie de m'indique mon erreur et de me la corriger


Merci d'avance