Как отобразить список графических файлов в виде миниатюр - VB

Формулировка задачи:

В общем, у меня такая проблема - нужно бы при выборе по определенным критериям, выводить файлы не списком, а в виде превьюшек - т.е. нужно получить список миниатюр. В идеале бы, конечно, еще и уметь настраивать размеры этих миниатюр. Может кто-то что-то подобное уже делал или знает как можно быстро и наиболее рационально реализовать данную задачу -

создание списка миниатюр.

формат файлов будут строго

jpg

Решение задачи: «Как отобразить список графических файлов в виде миниатюр»

textual
                            Листинг программы 
                        

                            Image1.Stretch = True
Image1.Move 100, 100, 500, 1000
Image1.Picture = LoadPicture("путь к файлу /*.jpg/")
'или,что б не искажать рисунок, в исходных размерах
'загружать в невидимый Image и потом расчитывать размеры пропорционально и переписывать
                        