请问要记录敲击键盘次数,该调用什么函数？谢谢高手

自定義個變量 然后在KEYDOWN裏寫代碼..

谢谢楼主，能给一点代码吗？没写过这样得程序。谢谢楼主了

Dim cnt As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
cnt = cnt + 1
MsgBox cnt
End Sub

Private Sub Form_Load()
cnt = 0
End Sub

谢谢田里兵蜂，请问要记录特定的建，该如何写？谢谢了

判断KeyCode

楼上的说得对.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'//每按下一次s键.则变量sum自增1
Static sum As Integer
If (KeyCode = Asc("S")) Then
sum = sum + 1
Print sum
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

keypress如何？