اضافة مفتاح في الرجستري

عليكم السلام ورحمة الله وبركاته

السبب أنك لم تجعل مربع النص يأخذ اسم ملف الصورة ، عدل كودك إلى

Private Sub Command2_Click()
CommonDialog1.Filter = "jpg|*.jpg|bmp|*.bmp|"
CommonDialog1.InitDir = App.Path + "\"
CommonDialog1.ShowOpen
On Error Resume Next
ima = CommonDialog1.FileName
Image1.Picture = LoadPicture(ima)
Text1.Text = ima
End Sub

الف شكر اخي العزيز