Move a control using the up and down arrows.
Posted on 2006-11-18
I want to build a PONG game and use the up and down arrows to move the paddles (picturebox with white backcolor sahped like pong paddle with no picture). I have tried the following code with no success. It doesn't seem like an event is being triggered by the Form_Keydown event. What am I missing?
Private Sub Form_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)
Form1.ActiveForm.KeyPreview = True
Select Case KeyCode
pic1.Top -= 10
pic1.Top += 10