>>616
3/4倍に縮小・・・
Dim destinationWidth As Integer = PictureBox1.Width * 0.75
Dim destinationHeight As Integer = PictureBox1.Height * 0.75
Dim bm As New Bitmap(destinationWidth, destinationHeight)
Dim gbm As Graphics = Graphics.FromImage(bm)
Dim destinationRect As New RectangleF(0, 0, destinationWidth, destinationHeight)
Dim sourceRect As New RectangleF(0, 0, PictureBox1.Width, PictureBox1.Height)
gbm.DrawImage(PictureBox1.Image, destinationRect, sourceRect, GraphicsUnit.Pixel)
PictureBox1.Image = bm