Bueno, despues de recorrerme todo internet, encontre la solucion:
Dim imagen As New Bitmap(New Bitmap(ruta), 320, 288)
imagen.Save(ruta2, System.Drawing.Imaging.ImageFormat.Jpeg)
donde ruta es el archivo de origen y ruta2 es la ruta donde se guardara la nueva imagen
Gracias a todos de todas formas
