画像の上下を反転させる

---

画像の左右反転とたいして変わりません。

Private Sub Picture1_Click()
     Picture1.PaintPicture Picture1.Picture, Picture1.ScaleWidth - 1, 0, -Picture1.ScaleWidth
End Sub

と書いてあるところを、

Private Sub Picture1_Click()
     Picture1.PaintPicture Picture1.Picture, 0, Picture1.ScaleHeight - 1, , -Picture1.ScaleHeight
End Sub

に変えるだけです。

---

BACK