strFilter = CreateFilterString_CLT("All Files (*.*)", "*.*", "Database Files (*.MDB)", "*.MDB")
kısmını
strFilter = CreateFilterString_CLT("All Files (*.*)", "*.*", "Resim Dosyaları (*.JPG)", "*.JP*")
olarak değiştirirseniz JPG resimleri getirir.Kolay Gelsin.