如何在VB程序中控制Flash控件的点击事件！

1、如果flash是你自己做的   可以用  
  '**************************************************  
  '  
  '在FLASH中  
  '  
  '在制作flash的过程中加上下面的  
  ''在FLASH中控制VB程序  
  ''搜索按钮的as为:  
  ''发送search命令，这个命令名可以自定义.  
  'on(release){  
  'Fscommand("Open","打开");  
  '}  
  ''在退出按钮中写入:  
  ''发送exit命令  
  'on(release){  
  'fscommand("Exit","退出");}  
  '**************************************************  
  '先在form上放个播放   flash的   控件  
  Private   Sub   Form_load()  
          '加载程序同一目录下的Search.swf的动画  
          ShockwaveFlash1.Movie   =   App.Path   &   "\Search.swf"  
  End   Sub  
   
  Private   Sub   ShockwaveFlash1_FSCommand(ByVal   command   As   String,   ByVal   args   As   String)  
          If   command   =   "Open"   Then  
                  Form2.Show  
                  Form1.Hide  
          End   If  
          If   command   =   "Exit"   Then  
                  End  
          End   If  
  End   Sub  
   
   
   
  2、如果flash不是你的   那就要用其他的方法代替   实现  
  '先设置   ShockwaveFlash1   的   TabStop   =   False  
  Private   Sub   ShockwaveFlash1_GotFocus()   'tabstop为false     这样就有单击的效果   了  
          Form2.Show  
          Form1.Hide  
  End   Sub