VB Flash控件快捷键问题
百度了一下有的人说ShockwaveFlash1_FSCommand事件下是控制快捷键的，

但是我使用keycode 没有效

代码如下：

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
Select Case KeyCode
Case vbKeyF10
Me.Visible = False
End Select
End Sub

想实现的效果是一个全屏flash，按下F10退出当前窗体。

请教前辈该如何实现？


[解决办法]
http://hi.baidu.com/rousseauian/item/f5299d0e26d8fc143b53eeb2
[解决办法]

引用:

http://hi.baidu.com/rousseauian/item/f5299d0e26d8fc143b53eeb2

我想实现的效果是快捷键，不是VB与FLASH结合