Here is a quick sample to flip image - you'll need a Picturebox and Command button:
VB Code:
Private Sub Form_Load()
Picture1.AutoRedraw = True
End Sub
'flip image horizontally
Private Sub Command1_Click()
'============================
Dim img As Image
Set img = Controls.Add("VB.Image", "imgTemp")
With Picture1
img.Picture = .Image
.Cls
.PaintPicture img.Picture, _
.ScaleWidth, _
0, _
-.ScaleWidth, _
.ScaleHeight
End With
Controls.Remove "imgTemp"
Set img = Nothing
End Sub
'flip image vertically
Private Sub Command2_Click()
'============================
Dim img As Image
Set img = Controls.Add("VB.Image", "imgTemp")
With Picture1
img.Picture = .Image
Picture1.Cls
.PaintPicture img.Picture, _
0, _
.ScaleHeight, _
.ScaleWidth, _
-.ScaleHeight
End With
Controls.Remove "imgTemp"
Set img = Nothing
End Sub