Mover OvalShape lentamente

[Chamuanza]

Um bem haja a todos

Pretendo mover uma OvalShape lentamente, estou a utilizar este código, mas não funciona

Agradeço ajuda. Obrigado

 Dim X As Integer

        X = X + 1


        OvalShape19.Location = New Point(57 + X, 453)


        If X = 5 Then
            Timer1.Stop()
        End If