Dim imgPhoto As System.Drawing.Image = System.Drawing.Image.FromFile("图片路径名")
成都网站建设哪家好，找创新互联公司！专注于网页设计、成都网站建设、微信开发、小程序设计、集团企业网站制作等服务项目。核心团队均拥有互联网行业多年经验，服务众多知名企业客户；涵盖的客户类型包括：围栏护栏等众多领域，积累了大量丰富的经验，同时也获得了客户的一致赞扬！
Dim imgWidth As Integer = imgPhoto.Width
Dim imgHeight As Integer= imgPhoto.Height
题主看懂了就采个纳吧～
在VB.NET操作缩放图像中的显示和保存缩放图像，用到Image和Graphics类，在VSDotNet2K3下面Reference里自动添加了引用System.Drawing，直接用就行。
实现VB.NET操作缩放图像代码如下：DimimgAsImageImage=Image.FromFile
(D:\Image\tstImage.jpg)
''tstImage是原先的图片DimgrfxAsGraphics=Me
.CreateGraphics
grfx.DrawImage(img,0,0,img.Width*
3,img.Height*3)''在Form里显示
DimimgnewAsNewSystem.Drawing.Bitmap
(img,img.Height*3,img.Width*3)
''新建一个放大的图片
imgnew.Save(D:\Image\tstNewImage.jpg,
System.Drawing.Imaging.ImageFormat.Jpeg)
''保存放大后图片
你可以建一个Form，然后在Form里拖进一个Button，把上面的代码放在Button_Click事件里面源码天空
，执行就行了。
对上面VB.NET操作缩放图像代码的解释：
1.要获取Graphics对象只能从某一事件的参数中获取或者使用窗体和控件对象的CreateGraphics方法来获取-----上面代码使用Me.CreateGraphics来引用这个对象。
2.加载一个图片用Image类的FromFile或者FromStream方法
3.用DrawImage来显示一个图片,该方法有30多个重载方法，可以查MSDN了解细节。
4.保存时的一个问题：我们必须先建一个对象，用于存缩放图像。
用FileStream打开文件查看大小再创建Bitmap显示图片尺寸。
Dim f As New IO.FileStream("C:\1.bmp", IO.FileMode.Open, IO.FileAccess.Read) '改成你的文件地址。
MsgBox(f.Length / 1024 "KB") '没做仔细，你根据需要自己改吧，Length得到的是字节数。
Dim b As New Bitmap(f)
f.Dispose()
MsgBox(b.Width " * " b.Height)
FileStream 类：
Bitmap 类：
