Private Sub Command1_Click()
Picture1.PaintPicture Picture2.Image, 0, 0, _
1000, 1000, 0, 0, 2760, 3675
SavePicture Picture1.Image, "C:\test.bmp"
End Sub