调用热键代码keybd_event，键盘失灵，VBA

chulia520

为什么我用了这个快捷键代码后键盘失灵一样？系统是WIN10 64位，变量申明错了吗
Private Declare PtrSafe Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As LongLong, ByVal dwExtraInfo As LongLong)
Private Sub CommandButton1_Click()
keybd_event &H5B, 0, 0, 0
keybd_event vbKeyD, 0, 0, 0
End Sub