Programación VB para cambiar tamaño
Subcomando privado 1_Click()
I estática en forma de número entero
i = i + 1
Imagen1. stretch=Verdadero
Imagen1. ancho = Imagen1. Ancho * (1 + i * 0.1)
Imagen1. altura = Imagen1. Altura * (1 + i * 0.1)
Conector final
Subcomando privado 2_Click()
I estática en forma de número entero
i = i + 1
Imagen1. stretch=Verdadero
Imagen1. ancho = Imagen1. Ancho * (1 - i * 0.1)
Imagen1. altura = Imagen1. Alto* (1 - i * 0.1)
Conector final