devo aprire, ridimensionare e salvare delle immagini
per fare successivamnte un'anteprima
ma nonostante il ridimensionamento il file che mi salva
è + grande dell'originale
anzi è sempre di 2.836KB
probabile che sbagli qualcosa, vero?!
posto il codice
'-----------------------
Dim X As Picture
Set X = LoadPicture(strPath + strImmagine, 0, 0, 1, 1)
imgThumb.Picture = X
imgThumb.Stretch = True
imgThumb.Height = 50
imgThumb.Width = 50
SavePicture imgThumb.Picture, strPath + "thumb\" + strImmagine
'-----------------------
grazie per ogni suggerimento