Hello,
You can use this to improve the quality of an Image:
Imports System.Drawing.Drawing2D
e.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic
e.Graphics.SmoothingMode = SmoothingMode.HighQuality
e.Graphics.PixelOffsetMode = PixelOffsetMode.HighQuality
e.Graphics.CompositingQuality = CompositingQuality.HighQuality
To set the resolution you can use this:
Dim bmp As New Bitmap(Image)
bmp.SetResolution(dpiX, dpiY)