Как изменить ширину без обрезки изображения в VB.NET-что?

---

Я хочу уменьшить ширину изображения, не теряя его качества и не обрезая его. Когда я пытаюсь уменьшить ширину изображения, оно становится размытым. Как я могу решить эту проблему? Это то, что я пытался сделать до сих пор.

Что я уже пробовал:

Dim barcode As Barcode128

barcode = BarcodeFactory.GetBarcode(Symbology.Code128)

barcode.Number = TextBox1.Text.ToUpper

barcode.Height = 120 Dim bitmap As Bitmap = barcode.Render()

Dim Cr As New Rectangle(5, 55, 130, 80) 'upperleft(x),upperleft(-y),right(-x),bottom(y)

Dim OrignalImage As Bitmap

OrignalImage = bitmap

Dim CropImage = New Bitmap(CropRect.Width, CropRect.Height

Using grp = Graphics.FromImage(CropImage)

grp.CompositingQuality = Drawing2D.CompositingQuality.HighQuality

grp.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic

grp.SmoothingMode = Drawing2D.SmoothingMode.HighQuality

grp.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality

grp.DrawImage(OrignalImage,New Rectangle(7,5,Cr.Width,Cr.Height),Cr, GraphicsUnit.Pixel)

PicBarCode.Image = CropImage

CropImage.Save("D:\bc.jpeg")

grp.Dispose()
End Using

---