I am making a menu for a game, and I am useing arrows to select new game...so I decide to make a very simple system for this so I use:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then
arrow1.Visible = False
arrow2.Visible = True
End Sub

and it wont work. I also tried arrow1_KeyDown, but that wouldnt work either. So what is wrong?