VB代码中的ShockwaveFlash 控件到底如何用？

VB代码中的ShockwaveFlash 控件到底怎么用？？
为什么硪用代码：
           Option Explicit
                Private Sub Form_Load()
                 ShockwaveFlash1.Movie = App.Path & "\F_flash.swf"
                 End Sub
不可以啊,是不是要其他属性？
[解决办法]
http://www.m5home.com/blog/article.asp?id=201

用这招可以连控件都不引用.....动态创建,哈哈.
[解决办法]
那地址硪打不开啊..
  有没有代码？？
[解决办法]

'新建工程,默认的窗体记得拉大一点~~~   
Option Explicit   
  
Private Sub Form_Load()   
    Dim tmpCtl As Object  
       
    Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")   
            '添加控件   
    tmpCtl.Width = Me.Width     '设置外观   
    tmpCtl.Height = Me.Height   
    tmpCtl.Visible = True  
       
    tmpCtl.object.LoadMovie 0, "http://comic.qq.com/flash/2005/20050924aichu.swf"  
End Sub  

怎么访问不了呢?
[解决办法]
SFlash.Visible = True
SFlash.Movie = sFileName
SFlash.GotoFrame 0
SFlash.Play

[解决办法]
额额..我弄好了谢谢...
不知道就是打不开..