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