Flip Rotate Image in Image box

How do I flip and rotate Image in image box in VB6?

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