VB-求教按键检测问题

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 

If KeyCode = vbKeyUp Then 

msgbox "您按了上键!"

End If 

End Sub

这段代码在空白的form窗体上些能够实现按键检测

但是我加入个command之类的按钮后就不正常了

请问这个要如何解决？或者还有没有其他的方法实现按键检测？

参阅