想将图片保存在SQL的字段中，有些图片太大，想在上传前进行缩小处理，如何将图片转换为指定象素大小的图片？

        Dim bitmap As Bitmap = bitmap.FromFile(wjm1)
        i = 80  '缩小百分比
        Dim image As New Bitmap(bitmap, bitmap.Width * i / 100, bitmap.Height * i / 100)
        image.Save("d:\3.jpg")
        bitmap.Dispose()

用命令调用imagemagic，不知道是不是有些旁门左道 http://www.