VB.NET中生成缩略图

'=======================
'生成缩略图
'=======================
Dim formImage As System.Drawing.Image = System.Drawing.Image.FromFile(path) '原图
Dim gFormat = formImage .RawFormat '获取图形格式
Dim pwidth As Integer = formImage .Width
Dim pheight As Integer = formImage .Height
Dim toImage As New Bitmap(formImage , NewthumbSize(pwidth, pheight))
imgOutput.Save(strSaveImagePath, gFormat) '保存缩略图文件
myImage.Dispose()
im