Try this

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeydown) Then
MsgBox "Down key pressed"
End If
If (KeyCode = vbKeyup) Then
MsgBox "Up key pressed"
End If

End Sub


Cheers
Ray