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

你能做些什么使一个按钮具有按下效果？我不是说

平板式弹出窗口

。可以说，它必须在第二次被点击时“向下”，鼠标点击结束后“向上”

这是我到目前为止尝试过的代码。你有更好的主意吗

        Dim RememberXpos As Integer = Button1.Location.X
        Dim RememberYpos As Integer = Button1.Location.Y
        Dim ButtonXEnd As Integer = Button1.Location.X + Button1.Size.Width
        Dim ButtonYEnd As Integer = Button1.Location.Y + Button1.Size.Height
        Dim oldSize As Size = Button1.Size

        ' shrink
        Button1.Size = New Size(CInt(Button1.Size.Width * 0.9), CInt(Button1.Size.Height * 0.9))

        ' center the button
        Dim ButtonXEndeDiffHalf As Integer = CInt(Math.Round((ButtonXEnd - (Button1.Location.X + Button1.Size.Width)) / 2.0, 0))
        Dim ButtonYEndeDiffHalf As Integer = CInt(Math.Round((ButtonYEnd - (Button1.Location.Y + Button1.Size.Height)) / 2.0, 0))
        Button1.Location = New Point(Button1.Location.X + ButtonXEndeDiffHalf, Button1.Location.Y + ButtonYEndeDiffHalf)
        Button1.Update()
        System.Threading.Thread.Sleep(150)

        ' re-enlarge
        Button1.Size = oldSize
        Button1.Location = New Point(RememberXpos, RememberYpos)

---

改为使用复选框并将“外观”设置为“按钮”

CheckBox1.Appearance = Appearance.Button