我制作了一个工业流程的动画演示，在vb中使用，但不知道如何实现vb与动画间实现数据交换，也就是用vb控制动画中的变量，不知各位有没有这样的经验，小弟在此感谢了！

直接用shockwaveflash控件不就的了Private Sub cmdFastBackSWF_Click()' 向后5%If MyShockwaveFlash.FrameNum >= 0 ThenMyShockwaveFlash.GotoFrame ((SliderSWF.Value - SliderSWF.LargeChange) * 0.01 * (MyShockwaveFlash.TotalFrames - 1))End IfEnd SubPrivate Sub cmdFastForwardSWF_Click()' 向前5%If MyShockwaveFlash.FrameNum >= 0 ThenMyShockwaveFlash.GotoFrame ((SliderSWF.Value + SliderSWF.LargeChange) * 0.01 * (MyShockwaveFlash.TotalFrames - 1))End IfEnd SubPrivate Sub cmdGotoEndSWF_Click()' 到最后一帧If MyShockwaveFlash.FrameNum >= 0 ThenMyShockwaveFlash.GotoFrame (MyShockwaveFlash.TotalFrames - 1)End IfEnd SubPrivate Sub cmdPauseSWF_Click()' 暂停播放' ShockwaveFlash控件中没有多媒体播放器中典型的名为“Pause”的功能' 只有两个看不出区别的功能：StopPlay和Stop，都是用来暂停播放的MyShockwaveFlash.StopPlayEnd SubPrivate Sub cmdPlaySWF_Click()' 播放MyShockwaveFlash.PlayEnd SubPrivate Sub cmdRewindSWF_Click()' 返回到第一帧，自动开始播放MyShockwaveFlash.RewindMyShockwaveFlash.PlayEnd SubPrivate Sub cmdStepBackSWF_Click()' 后退一帧MyShockwaveFlash.BackEnd SubPrivate Sub cmdStepForwardSWF_Click()' 前进一帧MyShockwaveFlash.ForwardEnd SubMyShockwaveFlash.RewindMyShockwaveFlash.StopPlayEnd SubPrivate Sub cmdZoomInSWF_Click()' 放大一倍，以原先为50%MyShockwaveFlash.Zoom (50)End SubPrivate Sub cmdZoomNoSWF_Click()' 正常大小MyShockwaveFlash.Zoom (0)End SubPrivate Sub cmdZoomOutSWF_Click()' 缩小一倍，以原先为200%MyShockwaveFlash.Zoom (200)End Sub程序员联盟QQ群：5662212

精典。

这个控件的flash 被那个讨厌的3721搞掉了只要 把3721卸了就可以了

前提是FLASH画面上没有任何交互按钮,从FLASH画面单击或双击直接进到VB的下一个页面,在此谢谢各位高手了