如何在vb中添加flash的动画，一个欢迎标题

使用ShockwaveFlash部件
方法如下：
    Dim mypath
    mypath = App.Path
    Me.ShockwaveFlash1.Movie = mypath & "\Movie1.swf"
    Me.ShockwaveFlash1.Left = 0
    Me.ShockwaveFlash1.Width = Me.Width
    Me.ShockwaveFlash1.Playing = True
这么EASY，就不用邮了吧？