Dim g1 As System.Drawing.Image
g1 = System.Drawing.Image.FromFile("tmp.jpg")
newWidth = 100
newHeight = 100
Dim g2 As New System.Drawing.Bitmap(gg, newWidth, newHeight)
g2.Save("aaa.jpg", System.Drawing.Imaging.ImageFormat.jpg)
Dim g1 As System.Drawing.Image
g1 = System.Drawing.Image.FromFile("tmp.bmp")
newWidth = 100
newHeight = 100
Dim g2 As New System.Drawing.Bitmap(gg, newWidth, newHeight)
g2.Save("aaa.bmp", System.Drawing.Imaging.ImageFormat.Bmp)