Yes. With the
PaintPicture-method, you can copy and
resample pictures, for example :
Private
Sub Form_Load()
picOld.AutoSize = True
picNew.Width = picOld.Width * 2
picNew.Height = picOld.Height * 2
picNew.AutoRedraw = True
picNew.PaintPicture picOld.Picture, 0, 0,
picNew.ScaleWidth, picNew.ScaleHeight, 0,
0, picOld.ScaleWidth,
picOld.ScaleHeight
End Sub
The picture
in picNew will have twice the size of
picOld. Make sure that the ScaleMode of
picOld the same is as the ScaleMode of
picNew
|