Vb.net 减速车（图片盒）

目前我正在做一个游戏，我想让车慢慢地完全停下来，而不是在松开钥匙后立即停下来。当前移动代码如下所示

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As System.Windows.Forms.Keys) As Short

Private Sub MovementTimer_Tick(sender As Object, e As EventArgs) Handles MovementTimer.Tick

    If GetAsyncKeyState(Keys.Up) <> 0 Then
        Car.Top -= 6
    End If
    If GetAsyncKeyState(Keys.Down) <> 0 Then
        Car.Top += 6
    End If
End Sub

将函数GetAsyncKeyState Lib“user32”（ByVal vKey作为System.Windows.Forms.Keys）声明为Short
私有子MovementTimer_Tick（发送方作为对象，e作为事件参数）处理MovementTimer.Tick
如果GetAsyncKeyState（Keys.Up）为0，则
汽车。顶部-=6
如果结束
如果GetAsyncKeyState（Keys.Down）为0，则
汽车。顶部+=6
如果结束
端接头

---

我需要添加或更改什么才能做到这一点？

WPF

和

Silverlight

已经内置了该功能。@有一天我已经得到了一些代码，我宁愿不转换到另一个应用程序，比如这两个应用程序，而且我还不太习惯用这两个应用程序中的任何一个进行编码。