Yes, it works, many thanks - but not with a resolution other than 72
This code creates an image 4 times too small if the original image has a resolution of 300dpi :
dim oldPic As New Picture (pic.width, pic.height, 32)
oldPic.HorizontalResolution = pic.HorizontalResolution
oldPic.VerticalResolution = pic.VerticalResolution
oldPic.Graphics.DrawPicture pic, 0,0
oldPic.Transparent = 1