Change 32x32 to 16x16 icon

[PRIVATE1]

Im trying to get an icon thats in a picture box thats 32 x 32 pixels into a picturebox thats 16 x 16 So I can load it into an image list and assighn it to the small icons properties of a list view . I have the icon it just the wrong size .

any ideas ?

[]P

Use the PaintPicture method to shrink it or stretch it.

Private Sub Command1_Click()
ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
Picture2.PaintPicture Picture1, 0, 0, 16, 16
End Sub