Pegasus的ImagXpress 8.0控件，支持各种格式文件的加载。控件封装了右键局部区域放大的功能，要实现图片的缩放，把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。
10年积累的做网站、网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计制作后付款的网站建设流程，更有杜集免费网站建设让你可以放心的选择与我们合作。
PictureBox.SizeMode
属性
默认情况下，在
Normal
模式中，Image
置于
PictureBox
的左上角，凡是因过大而不适合
PictureBox
的任何图像部分都将被剪裁掉。
使用
StretchImage
值会使图像拉伸或收缩，以便适合
PictureBox。
使用
Zoom
的值可以使图像被拉伸或收缩以适应
PictureBox；但是仍然保持原始纵横比。
使用
AutoSize
值会使控件调整大小，以便总是适合图像的大小。
使用
CenterImage
值会使图像居于工作区的中心。
'将image的stretch属性改为true就行了.
image1.stretch=true
'就是让图像适应image.
'或者:
'在窗体加载时设置image的大小.
image1.width=1000
image1.height=2000
方法如下：
1、读取该图片；
2、使用PaintPicture方法缩放绘制图片；
3、保存PictureBox中的图片。
注意：VB的SavePicture只能保存BMP，想保存为其他格式，只能自己根据文件格式写，或者找控件。
Sub 图片缩放()
Dim SngPer As Single = 1 '放大或缩小的比例 放大2倍时SngPer=2,缩小3倍时 SngPer=1/3
Dim PicOld As Image = Image.FromFile("原图片路径")
Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)
PicNew.Save("新图片路径", Drawing.Imaging.ImageFormat.Jpeg)
End Sub