Game and keys

[Erel]

The values are: cUpKey, cDownKey, cLeftKey, cRightKey

[pmu5757]

Thank you Erel, but I don't succeed in coding that.
Here is my code (in fact too attempts in the same code but neither the one nor the other works).
Could you tell me what's wrong : I just want to make the button move by typing on the arrows.
Thank you.

Sub Globals
    'Declare the global variables here.

End Sub

Sub App_Start
    Form1.Show
    Button1.Focus
    End Sub


Sub Button1_KeyPress (key)
    If Key=cUpKey Then
        Button1.Top=Button1.Top+5
    End If
End Sub

Sub Form1_KeyPress (specialKey)
    Select SpecialKey
 Case cUpKey
  Button1.Top=Button1.Top+5
 Case cDownKey
 Button1.Top=Button1.Top-5
End Select
End Sub

[Erel]

You are right. The arrow keys are treated differently than other keys on the desktop.
You will need to use dzt's library: http://www.basic4ppc.com/forum/addit...entsmagic.html
See the first example.

[pmu5757]

Thank you, it works very well !