Vb6- Een zoom op een Image

[satriano17]

Hallo. Met deze code maak ik een soort zoom out van een afbeelding.
Het begint bij de grootte van de afbeelding en gaat dan
naar 0 en dan begint het weer vanaf het maximum.

 Dim dblstep As Double
Private Sub Form_Load()
Timer1.Interval = 50
    Me.ScaleMode = 1
    dblstep = -2 '10 pixels
End Sub
Private Sub Timer1_Timer()
With Image1
  .Move .Left, .Top, .Width + dblstep, .Height + dblstep
     If .Width = 1 Then
     'Timer1.Enabled = False
     Image1.Width = 65 ' max image grootte
    Image1.Height = 65
     End If
    End With
End Sub

En tot hier alles goed. Ik probeerde dan om omgekeerd te maken .
Dus, beginnend van punt 0 naar het maximum grootte
van de afbeelding en opnieuw beginnen tot timer false is
En dit gaat niet.

Ik heb van alles geprobeerd. Bv. heb ik het minteken verwijderd. Zo:

Timer1.Interval = 50
    Me.ScaleMode = 1
    dblstep = 2 '10 pixels
End Sub

Het lijkt te werken, maar stopt niet bij de grootte van de afbelding
en vooral herhaalt de cyclus niet en begint niet opnieuw.

Dus: Zoom out gaat wel.
Zoom in niet.
Waar/hoe iets veranderen?