Icons , picture boxes , changing 32x32 to 16x16

[PRIVATE1]

please follow this to the original post

Sorry for the inconvience ,

[]P

[dealman]

i dont know for sure ..but maybe you can simply load a picture into
image1
setting the strech property to true
than simply minimizing the image..

i know this sounds just too easy ...but maybe it will work..



although , i'm sure there are several API functions which does the job perfectly..(i dont know what are they..)

[PRIVATE1]

I Need to shrink it .

[kedaman]

Picture1.PaintPicture Picture2.Image, 0, 0, 16, 16, 0, 0, 32, 32, vbSrcCopy

[PRIVATE1]

Thanks kedaman !
maybe I'm asking wrong I used the API's to get the icon into the first box Then I tried your code here

retval = DrawIcon(pixDummy.hDC, 0, 0, hIcon)
            
            ' Although the icon's image is still visible, the icon itself is not in use.
            ' Therefore we destroy it to free up resources.
            retval = DestroyIcon(hIcon)
            pixDummy.PaintPicture pic_Little.Image, 0, 0, 16, 16, 0, 0, 32, 32, vbSrcCopy
            pic_Little.Refresh

pic_little has autoredraw set to true but still fails to display the icon . What did I do wrong ?


[]P

[Edited by PRIVATE1 on 11-11-2000 at 10:45 AM]

[PRIVATE1]

I Got it I confused the source and destination .


thanks again