Programación VB para cambiar el tamaño de la imagen
Subcomando privado1_Click()
I estática como entero
i = i + 1
Imagen1.Stretch = Verdadero
Imagen1.Ancho = Imagen1.Ancho * (1 + i * 0.1)
Imagen1.Alto = Imagen1.Alto * (1 + i * 0.1)
End Sub
Subcomando privado2_Click()
I estática como entero
i = i + 1
Imagen1.Stretch = Verdadero
Imagen1.Width = Imagen1.Width * (1 - i * 0.1)
Imagen1.Height = Imagen1.Height * (1 - i * 0.1)
End Sub