Resize image with Visual Basic

Resize image with Visual Basic and GdPicture ActiveX

Dim Imaging As Object

Set Imaging = CreateObject("gdpicturepro5.imaging")

Imaging.SetLicenseNumber ("0012345678910111213141516") 'Demo code version

Imaging.CreateImageFromFile ("c:\image.tif")
If Imaging.ResizeImage(1024, 780, 6) = 0 Then '6 is the Interpolation Mode HighQuality Bilinear
Imaging.SaveAsJpeg "c:\newimage.jpg", 90 '90 is the quality of the new picture
End If

Imaging.CloseNativeImage

Set Imaging = Nothing