押されているキーの評価について

質問

Excel2002のVBAです。

次のコードで押されたキーを判別していますが、Altの時だけ、
キーを離なしても、離したあと1度だけ、押されていると評価
されてしまいます。

これは回避できないのでしょうか?

'---------------------------
Declare Function GetAsyncKeyState Lib "user32.dll" _
(ByVal vKey As Long) As Long

'---------------------------
Private Sub CommandButton1_Click()

If GetAsyncKeyState(vbKeyControl) <> 0 Then
MsgBox "CTRLキーを押しながらクリックされました。"
End If

If GetAsyncKeyState(vbKeyShift) <> 0 Then
MsgBox "Shiftキーを押しながらクリックされました。"
End If

If GetAsyncKeyState(vbKeyMenu) <> 0 Then
MsgBox "Altキーを押しながらクリックされました。"
End If

End Sub

回答No.1

papayuka · ベストアンサー

こちらが参考になりそうです。
http://www.mb.ccnw.ne.jp/garger-studio/vbgame/142.html

お礼

ありがとうございました。

また、よろしくお願いします。