.... riposto il codice

'----------------
Dim X As Picture

Set X = LoadPicture(strPath + strImmagine)
pctSource.Picture = X

pctThumb.Cls

pctThumb.PaintPicture pctSource.Picture, 0, 0, pctThumb.Width, pctThumb.Height

SavePicture pctThumb.Picture, strPath + "thumb\" + strImmagine
'----------------

quando eseguo il SavePicture:
"pctThumb.Picture" è = 0
come se il metodo PaintPicture non impostasse nessuna immagine