キーが何回押されたかその２ (ID:140888)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 前回keyDOWNを教えていただき、 Dim A_count As Integer Dim B_count As Integer Private Sub Form() A_count = 0 B_count = 0 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 0 Then Select Case KeyCode Case vbKeyA A_count = A_count + 1 Label_A.Caption = "Ａの回数 ： " & A_count Case vbKeyB B_count = B_count + 1 Label_B.Caption = "Ｂの回数 ： " & B_count End Select End If End Sub を教えて頂き大変助かっているのですが【shift】+Ａを１回押したらＡが１減算したいのですが vbkeya+vbkeyshiftと定義しているのですがうまくいきません。各ホームページを細かくみたのですが、明確なのがなく、教えていただけませんでしょうか？すみません