在VB（Visual Basic）中制作动画，主要有以下几种方法：
使用计时器控件
计时器控件（Timer）可以每隔一定的时间触发一次Timer事件，通过编写事件驱动程序，可以控制动画的执行。
例如，可以设置计时器的Interval属性，以控制动画的帧率。通过在窗体上绘制和擦除图形，或者移动控件的位置，可以产生动画效果。
修改数据源
在Excel VBA中，可以通过修改图表的数据源来制造动画效果。例如，循环改变图表的SeriesCollection中的数据，可以模拟数据的变化，从而产生动画。
使用Move方法
Move方法可以用于移动控件或图像的位置。通过修改对象的Left和Top属性，可以使对象在屏幕上连续移动，从而实现动画效果。
清除和重绘图形
制作动画的基本原理是在窗体上显示一幅图形，然后清除它，再显示下一幅图形，如此交替下去。这种方法可以通过计时器控件控制动画的执行。
使用Picture控件和定时器控件
可以在窗体中拖入Picture控件，并设置定时器控件的Interval属性，以控制图片的移动和显示顺序，从而实现动画效果。
示例代码
```vb
' VB程序：让气球飞起来
' 启动VB，新建一个工程
' 将窗体的Width和Height属性分别设置为8000和6400，将Back Color属性设置为淡蓝色
' 在程序界面上绘制一个“计时器”控件
Dim tmr As Timer
Set tmr = New Timer
tmr.Interval = 40 ' 设置计时器间隔为40毫秒，即1秒钟内触发25次
' 声明模块级变量x和y
Dim x As Integer, y As Integer
' 编写窗体的Load事件和“计时器”控件的Timer事件驱动程序
Private Sub Form_Load（）
x = 0 ' 初始化x坐标
y = 0 ' 初始化y坐标
End Sub
Private Sub tmr_Timer（）
' 每隔40毫秒，清除当前位置并绘制新的气球位置
Me.Picture1.Picture = Nothing ' 清除当前图片
x = x + 5 ' 更新x坐标
y = y + 5 ' 更新y坐标
Me.Picture1.Left = x ' 设置新的左边沿水平坐标
Me.Picture1.Top = y ' 设置新的上边沿垂直坐标
End Sub
' 运行程序，观察效果
' 保存程序
```
建议
选择合适的方法：根据动画的复杂性和需求，选择最合适的方法来实现动画效果。
优化性能：对于复杂的动画，注意优化代码和控件的使用，以确保动画的流畅性和稳定性。
调试和测试：在制作动画的过程中，不断调试和测试，确保动画效果符合预期。