Image Zoom

Can any one show me how I can zoom into a graphic that say is loaded into a picture/image box. I need to be able to do this so that it zooms with little or no distortion and little flixering. If u have used ACDSee then u'll know what I mean.

The image need to redraw fast as possible.

Ok, here's a good one:

Code:

---

Private Sub SF_Timer()
    With Picture1
        .Picture = .Image
        .PaintPicture Picture1, 0, 0, .ScaleWidth, .ScaleHeight, .ScaleWidth / speed, .ScaleHeight / speed, .ScaleWidth - .ScaleWidth / speed * 2, .ScaleHeight - .ScaleHeight / speed * 2
    End With
End Sub

---

You need to set the speed, that is the zoom factor. Hope you like it.