[php]Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Int32) As Int16
[/php]
The other function is buggy on x64 bit systems. The function above is working fine on x32/x64 bit version.
[php]If GetAsyncKeyState(Keys.Down) Then
Me.Location = new point(me.location.x, me.location.y +1)
End If [/php]