vb 单击flash按钮 跳出一网页 为什么不行呢

Question

建一VB工程，在窗体插入一 ShockwaveFlash控件,设置它的movie为:D:\guang.swf guang.swf 就一按钮。按钮事件为：on (release) {
                                     fscommand("guang" , "this is a button ");  
                                 }
VB里code:
Option Explicit
'声明API
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'定义一过程
Private Sub OpenUrl(tUrl As String)
          ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
  End Sub
'与FLASH关联事件
Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)If command = "guang" Then
       OpenUrl "www.hao123.com"
End IfEnd Sub我要的是：单击VB中的FLASH中的按钮，跳出hao123的网页。可结果没影响。我百度找了好多的相关的了，不懂怎么回事？
大侠们，帮我看下，谢谢了，晚上来，急着用这个。

Answer 1

我测试了你的代码,能打开hao123

Answer 2

别整API了，用这个Private Sub Command1_Click()   Shell "explorer http://www.hao123.com"End Sub

Answer 3

仔细检查一下,有无类似于路径或命令多了个空格,on (release) { 
                                    fscommand("guang" , "this is a button ");  
                                } 放错了位置……之类的错误.

Answer 4

人家要的是flash的效果没环境不能测试了帮你顶一下