flashwindow vb_VB6.0 加载ShockwaveFlash（flash）控件

Private Sub Form_Load()

"初始化flash

Dim tmpCtl As Object

Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")  "自动添加控件

"调整大小和位置

tmpCtl.Move 0, 0, 1000, 1000

tmpCtl.Visible = True

Set objFlash = tmpCtl.object

"指定播放的swf

objFlash.Movie = "http://www.iamroot.cn/imy.swf"

End Sub

======================================================================================

Private Sub Form_Load()

Dim tmpCtl As Object

Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash") "动态添加控件

Set tmpCtl.Container = Form1

tmpCtl.Width = Form1.Width     "设置外观

tmpCtl.Height = Form1.Height

tmpCtl.Visible = True

tmpCtl.object.LoadMovie 0, "http://www.iamroot.cn/imy.swf"

End Sub