カウンターがうまく動作しません (ID:101529)

名前

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

本文 初心者ですが宜しくお願いします。 F1キーを押す度にカウントが増えていくものを作りたく、下のようにして出来たのですが、次にフォーム上に新たにコマンドボタンを置くと、動作しなくなります。 何が悪いのか、ご教授お願いします。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Static a As Integer Select Case KeyCode Case 112 a = a + 1 Label1 = a End Select End Sub