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