Cambiar Tamaño de Imagen

Squiur ha escrito:

Hola

Quiero imprimir una imagen pero me sale muy grande y lo que quiero es
cambiar el tamaño y reducirla un 75 % mediante codigo. la imagen la tomo de
un picturebox.

e.Graphics.DrawImage(PictureBox2.Image., X6, Y)

Public Sub AdaptarPictureBox2()
Dim myCallback As Image.GetThumbnailImageAbort
myCallback = New Image.GetThumbnailImageAbort(AddressOf
ThumbnailCallback)
Dim imagen As Image = PictureBox2.Image
Dim ancho, alto As Double
ancho = imagen.Width * 0.25 'Si la reducimos un 75%, queda el 25%
alto = imagen.Height * 0.25
PictureBox2.Image = imagen.GetThumbnailImage(CInt(ancho),
CInt(alto), myCallback, System.IntPtr.Zero)
End Sub

'Esta funcion no hace nada, pero es necesaria
Private Function ThumbnailCallback() As Boolean
Return False
End Function