ほい
Call Picture1.PaintPicture(Picture2.Picture, 0, Picture2.ScaleHeight, Picture2.ScaleWidth, -Picture2.ScaleHeight, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, vbSrcCopy)