Visual Basic - AQUI TENEIS CODIGO - CAMBIAR UNA IMAGEN DE TAMAÑO

Este es el codigo para aquellos que quieran abrir una imagen, cambiar su tamaño y guardarla con el nuevo tamaño:
Picture1.Picture = LoadPicture("Ruta y nombre del archivo")
Private Sub Cambiar_Tamaño_Click()
Picture1.Width = anchura final
Picture1.Height = altura final
Picture1.PaintPicture Picture1.Picture, 1, 1, Picture1.Width, Picture1.Height
End Sub
Private Sub Guardar_Click()
Picture1.Picture = Picture1.Image
SavePicture Picture1.Picture, "Ruta y nombre de como se guardará"
End Sub

Si os fijais 1º hay que redimensionar el picturebox para que haga bien la redimension y luego se redibuja.
Para guardarlo hay que asiganr el picture1.image, que es lo que se ve en el picturebox, al picture1.picture que es lo que el coge para guardar.
Si además os interesa que el archivo os lo transforme a jpg y asi os ocupe pokisimo, ir a esta web www.jrubi.com y buscar en trucos "Grabar en formato jpg (y convertir bmp en jpg)" y ahi os explican como con una dll y una funcion podeis transformar vuestra imagen en jpg.
Mola no??? ;p