Expand image with animation

[aviben]

The code below animates the resizing effect properly but from the left corner of the image. How can it be done from the center expanding in all directions?

Private Sub Timer1_Timer()

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

Thanks