Expand image with animation

[DEXWERX]

Private Sub Timer1_Timer()

If Image1.Width >= 2916 Then
    Image1.Width = 2916
    Timer1.Enabled = False
    Exit Sub
End If
Image1.Top = Image1.Top - 25
Image1.Left = Image1.Left - 25
Image1.Width = Image1.Width + 50
Image1.Height = Image1.Height + 50
End Sub