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