descarga del código fuente para guardar archivos vb

CommonDialog1.FileName = ""

CommonDialog1.ShowSave

If CommonDialog1.FileName lt;gt; " Luego

Guardar Imagen Imagen1.Imagen.NombreDeArchivo lt；gt; "" Luego

GuardarImagen Imagen1.Imagen, CommonDialog1.NombreDeArchivo

Finalizar si