by Dean (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 17th January 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Resizes a picture and then saves it
Picture2.Cls
Picture1.Picture = LoadPicture("test.jpg")
StretchBlt Picture2.hdc, 0, 0, Picture2.Width, Picture2.Height, Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
SavePicture Picture2.Image, "C:test2.jpg"
End Sub