具有下推效果的按钮的代码？Vb.net

Public Class Form1
    Private buttonStartPosition As Point

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 记录按钮的初始位置
        buttonStartPosition = Button1.Location
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 向下移动按钮
        Button1.Location = New Point(Button1.Location.X, Button1.Location.Y + 50)
        
        ' 启动计时器
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ' 恢复按钮的位置
        Button1.Location = New Point(Button1.Location.X, Button1.Location.Y - 10)

        ' 当按钮位置达到或超过初始位置时停止计时器
        If Button1.Location.Y <= buttonStartPosition.Y Then
            Button1.Location = buttonStartPosition
            Timer1.Stop()
        End If
    End Sub
End Class