Programación VB: ¿Cómo hacer que las imágenes escale mientras se mueven?

Lo depuré exitosamente, ¿puedo hacerlo sin usar MOve? ¡Porque eso es más engorroso!

Opción

Explícita

Dim

Se está reproduciendo

como

booleano p>

Privado

Sub

Form_Load()

Imagen1.Left

=

100

'Inicializar la posición del pájaro

Imagen1.Top

=

6200

Fin

Sub

Privado

Sub

Imagen1_Click()

Temporizador1.Enabled

=

No

Timer1.Enabled

'Invertir

Fin

Sub

Privado

Sub

Timer1_Timer()

Si

Imagen1.Left

lt;=

Me.Width

*

0.5

Luego

Imagen1.Left

=< / p>

Imagen1.Left

100'Mover a la derecha

Imagen1.Top

=

Imagen1.Top

-

100'Mover hacia arriba

Imagen1.Width

=

Imagen1 .Ancho

*

0.95

'Reducido en 95 cada vez

Imagen1.Alto

=< / p>

Imagen1.Altura

*

0,95

Else

Imagen1.Izquierda

=

Imagen1.Left

100'Mover a la derecha

Imagen1.Top

=

Imagen1.Top

100' bajar

Imagen1.Width

=

Imagen1.Ancho

/

0,95

'Acercar

Imagen1.Alto

=

Imagen1.Altura

/

0,95

Fin

Si

Si

Imagen1.Left

gt;=

me.width*0.9

Entonces puedes cambiarlo tú mismo

Imagen1.Izquierda

=

100

'Posición de inicialización

Imagen1.Top

=

6200

Fin

Si

Fin

Sub