I'm trying to flip a picture, and then copy it into another picture after it is flipped. However, the copy procedure always gives me the original unflipped picture. Any thoughts? Code is below:

'gets the picture
Private Sub Picture1_Click()
Picture1.Picture = LoadPicture("c:/picture.jpg")
End Sub

'flips it:this seems to work fine
Private Sub Command1_Click()
Picture1.PaintPicture Picture1.Picture, 0, 0, _
Picture1.Width, Picture1.Height, 0, Picture1.Height, _
Picture1.Width, -Picture1.Height, vbSrcCopy
End Sub

'always gives me original picture - not the flippped one I want
Private Sub Picture2_Click()
Picture2.Picture = Picture1.Picture
End Sub