VB关于键盘事件没反应

我是初学者 要做一个打字小游戏 实在不明白为什么这个键盘事件没有反应  
Private Sub Form2_KeyPress(KeyAscii As Integer)
    If Chr(KeyAscii) = Label5.Caption Then ‘label5中是屏幕上降下来的字母
       xx ‘是前面我定义的一个获取新的字母的函数
        s = s + 1
        Label2.Caption = s ’记分用
    End If
End Sub