在VB中使用FLASH自带的Swflash.ocx控件
在工具箱上单击鼠标右键,选择部件,在部件窗口的控件列表中选择Shockwave flash

shockwaveflash1.playing=true '开始播放

FLASH控件主要属性列表:
属性  值  含义
Scale Model 0  全部显示
            1  随控件大小变化
            2  缩放至控件大小
Quality  0  低分辨率
         1  高分辨率
         2  自动降低分辨率
         3  自动升高分辨率
Loop  True  循环播放
      False  不循环播放
Playing  True  播放
         False  停止
Movie    要播放的动画文件路径
Menue  True  显示快捷菜单(运行时在动画上点右键)
       False  不显示快捷菜单(实际上还是要显示一个About Flash...)