Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
 
...
Dim oldPic As Drawing.Image = Metafile.FromFile(inputFile)
Dim newPic As Drawing.Image = GetThumbnail(oldPic, 100, 50)
newPic.Save(outputFile, ImageFormat.Png)
...