Adobe公司Flash动画控件开发引起的问题

        Flash.ocx是国际上著名的图像软件公司Adobe推出的swf格式动画播放控件，现在的最高版本11.0已不支持VB6的开发。 但，是不是完全不支持VB6的开发呢？也不是。下面2种情况需要引起程序员的高度重视：
        1、现有的VB工程源码文件如果是在低版本Flash.ocx下开发的，在高版本9.0以上环境下打开VB工程文件（是否9.0开始，需要测试一下），在保存的时候可以，但要小心Flash.ocx被替换成PictureBox控件。我曾经上过当，Flash.ocx和mswebdvd.dll控件均被替换成了PictureBox控件。所以，在保存VB工程的时候一定要检查Flash.ocx是否被替换成PictureBox控件？
        2、虽然高版本的(9.0以上)Flash.ocx不支持添加控件到窗体上（主要是保存不了VB工程），即不支持前期绑定Flash.ocx控件。但是，可以通过下面程序动态添加Flash.ocx控件到窗体上，即后期绑定Flash.ocx控件，VB工程可以保存下来，并编译成可以运行的exe程序：

       

Option Explicit

Private Sub Form_Load()
    Dim FlashOBJ As Object
    
    Set FlashOBJ = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash") '动态添加控件
        
    FlashOBJ.Width = Me.Width     '设置外观
    FlashOBJ.Height = Me.Height
    
    FlashOBJ.Visible = True
    FlashOBJ.object.LoadMovie 0, "D:\移动备份\歌曲\今天下载\爱很简单.swf"
    
End Sub