记录一下:动态创建FLASH对象并播放FLASH动画(VB6.0)

'新建工程,默认的窗体记得拉大一点~~~
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