Visual Basic'te Commondialog'u dosya açmak için kullanırken action=1 veririz.
Bilmek istediğim gelen dosyaları nasıl küçük resim olarak görüntüleyebiliriz?

Private Sub Command1_Click()
CommonDialog1.Filter = "pictures(*.bmp;*.jpg)|*.bmp;*.jpg|"
CommonDialog1.ShowOpen
filen = CommonDialog1.FileName
Image1.Picture = LoadPicture(filen)
End Sub
kodunu ekleyin.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 ektedir