Dim j As Long, w As Long, h As Long
Private Sub Form_Initialize()

w = Picture1.ScaleWidth
h = Picture1.ScaleHeight

End Sub
Private Sub Command1_Click()
Dim r As Single
Picture1.Picture = Picture2.Picture
r = h / w
For j = 8 To w Step 12

Picture1.PaintPicture Picture3.Picture, w, h, -j, -r * j, w, h, -w, -h
DoEvents
Next
End Sub