Hi,
Would like to know how to zoom in/out a image without changing the size of
the picture box.
Thanks in advance.

Best Regards,
Lillian

Use the Image Box, so that you may change the size of the ImageBox
without changing the size of the picture box.

Note that changing the size of the picture box does not Zoom in/out
an image.

--
Posted via CNET Help.com
http://www.help.com/

I haven't used BitBlt but PaintPicture works!

Load a larger image into a picture buffer in the background and load
your source image area from that.

If you select a smaller source area from your invisible picture buffer
to paste into your destination area using larger coordinates for that, the
result is a stretched area.  Don't expect a non-pixellated area as on
tv and films, though unless your source image is very, very large
in the first place.

Richard.

-------------------------------------------------------------------------
For a visit to Hill House from the original horror film "The Haunting" look up
         Ettington Park Hotel near Stratford Upon Avon.
"No one comes any nearer than town!...In the dark!.....In the night!"

Dear Lillian,

You can use the Windows StretchBlt API to do that.

Declare the StretchBlt in your form
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x
As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal
hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As
Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Then on button click you can Zoomin  the image to double the size as
follows.
    lRtn = StretchBlt(Picture1.hdc, 0, 0, Picture1.ScaleWidth,
Picture1.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth / 2,
Picture1.ScaleHeight / 2, vbSrcCopy)

Regards,
Rocks