Maybe not the best solution there is:
Code:
Option Explicit
Private Sub FlipPicture(objPic As PictureBox)
Dim FlippedPic As StdPicture, bAutoRedraw As Boolean
With objPic
bAutoRedraw = .AutoRedraw
.AutoRedraw = True
Set FlippedPic = .Image
Set .Picture = Nothing
Call .PaintPicture(FlippedPic, 0, 0, .Width, .Height, .Width, 0, -.Width, .Height)
Set .Picture = .Image
.AutoRedraw = bAutoRedraw
End With
End Sub
' Sample Usage:
Private Sub Command1_Click()
Call FlipPicture(Picture1)
End Sub
------------------
Yonatan
Teenage Programmer
E-Mail: [email protected]
ICQ: 19552879