求个VB实现简单计数器的代码

Question

要求很简单。
一个Label控件，上面显示数字。
然后要求使用者按组合键如"ctrl+1"，Label上的数字就加1
按ctrl+2则减1
按ctrl+3清零
谢谢。
谢谢楼下的回答
我还有个小要求，就是无论这个计数器的窗口是在最前面，还是最小化了，还是最后面，按ctrl+1等都要有计数效果，谢谢！

Answer 1

新建一个VB工程，双击窗体把复制下面代码即可。
Option Explicit
Private sCount As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 49 '加1
If Shift = 2 Then
Form1.Caption = "CTRL + 1"
sCount = sCount + 1
End If
Case 50 '减1
If Shift = 2 Then
Form1.Caption = "CTRL + 2"
sCount = sCount - 1
End If
Case 51 '清空
If Shift = 2 Then
Form1.Caption = "CTRL + 3"
sCount = 0

End If
Case Else
End Select
Label1.Caption = sCount
End Sub

Private Sub Form_Load()
sCount = 0
Label1.Caption = sCount

End Sub

如果有不明白的地方可以与我交流
jialiu830205@163.com

Answer 2

对楼上的补充完善一下、增加对小键盘的支持
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim m As String
m = Label1.Caption
If (KeyCode = 49 Or KeyCode = 97) And Shift = 2 Then Label1.Caption = Str(Val(m) + 1)
If (KeyCode = 50 Or KeyCode = 98) And Shift = 2 Then Label1.Caption = Str(Val(m) - 1)
If (KeyCode = 51 Or KeyCode = 99) And Shift = 2 Then Label1.Caption = 0
End Sub

Answer 3

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim m As String
m = Label1.Caption
If KeyCode = 49 And Shift = 2 Then Label1.Caption = Str(Val(m) + 1)
If KeyCode = 50 And Shift = 2 Then Label1.Caption = Str(Val(m) - 1)
If KeyCode = 51 And Shift = 2 Then Label1.Caption = 0
End Sub