Formunuza 1 adet commandialog,1 adet buton ve 1 adet image(ve ya picture) nesnesi ekleyin)
butonun click yordamına;
Private Sub Command1_Click()
CommonDialog1.Filter = "pictures(*.bmp;*.jpg)|*.bmp;*.jpg|"
CommonDialog1.ShowOpen
filen = CommonDialog1.FileName
Image1.Picture = LoadPicture(filen)
End Sub
kodunu ekleyin.Eğer image nesnesi değilde picturebox kullanacaksanız;
Private Sub Command1_Click()
CommonDialog1.Filter = "pictures(*.bmp;*.jpg)|*.bmp;*.jpg|"
CommonDialog1.ShowOpen
filen = CommonDialog1.FileName
Picture1.Picture = LoadPicture(filen)
End Sub
Şeklinde yazmanız gerekir,Resim ekledim örnekte ektedirkolay gelsin.