vb6.0,动画源代码

VB6.0是一种编程语言，它的动画源代码可以用于创建各种类型的动画效果。以下是一个简单的VB6.0动画源代码的示例：

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100 '设置计时器间隔，控制动画速度
End Sub

Private Sub Timer1_Timer()
Static i As Integer
Static dir As Integer

i = i + dir

If i >= 100 Then
dir = -1 '改变方向
ElseIf i <= 0 Then
dir = 1 '改变方向
End If

'绘制动画效果
Dim myRect As Shape
Set myRect = Me.Shapes.AddShape(msoShapeRectangle, _
0, 0, i, Me.ScaleHeight)
myRect.Fill.ForeColor = vbRed '设置动画颜色

'清除之前绘制的矩形
If i > 0 And i < 100 Then
Me.Shapes(Me.Shapes.Count - 2).Delete
End If
End Sub

上述代码创建了一个简单的动画效果，它使用计时器控制矩形的宽度在0到100之间来实现动画效果。通过改变dir变量的值，可以控制矩形扩展和收缩的方向。代码中使用了Shapes对象来绘制矩形并设置填充颜色。保持计时器的Enabled属性为True，可以让动画不断地播放。

以上只是一个简单的示例，实际应用中可以根据需求进行更复杂的动画效果的开发。