VB Flash控件快捷键有关问题

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结合