vb acerca y aleja para ahorrar resolución

El código para escalar y guardar imágenes requiere formulario y Picture1Me.ScaleMode?=?3

nombre de archivo?=?"C:\WINDOWS\Web\Wallpaper\bliss.bmp"?" ? 'Ruta de la imagen original

w?=?400:?h?=?300?'Tamaño de escala

Con?Picture1 .AutoRedraw?=?True .ScaleMode?=? .Ancho?=?w? .BorderStyle?*?(.Apariencia? ?1)?*?2 .Altura?=?h .BorderStyle?*?(.Apariencia? ?1)?*?2 . ?CargarImagen(nombre de archivo),?Guardar imagen

Fin