用VB6设计有趣的动画场景

lor=RGB(255,0,0) ''以红色填充
.FillStyle=0 ''边框类型
.Shape=3 ''圆形的的果子
.ZOrder 0
End With
Next
Evaluate=True ''设置树枝已经画出标志
ShoWApple=False ''设置显示果子标志
Command2.Caption="显示果子" ''设置结果按钮标题
End Sub
Private Sub Command2_Click() ''结出果子按钮按下
On Error GoTo Erro
If ShoWApple=False Then
''如果果子没有显示，那么将它们全部显示出来
For Apple=LBound(Fruit) To UBound(Fruit)
Fruit(Apple).Visible=True
DoEvents
Sleep (50) ''每隔0.05秒显示一个果子
Next
ShoWApple=True ''重新设置显示果子标志
Command2.Caption="取消果子"
Else
''如果果子已经显示，那么将它们全部隐藏
For Apple=LBound(Fruit) To UBound(Fruit)
Fruit(Apple).Visible=False
Next
ShoWApple=False 重新设置显示果子标志
Command2.Caption="显示果子"
End If
Erro:
If Err.Number=9 Then
MsgBox "必须首先画出数，才能结出果子!"
End If
End Sub
Private Sub Form_Load()
Me.Caption=App.Title ''添加应用程序标题
Me.Left=(Screen.Width－Me.Width)/2
Me.Top=(Screen.Height－Me.Height)/2 ''窗体具中
Evaluate=False
ShoWApple=False
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
‘验证树枝数量是否为0或者1
If Text1.Text="" Or Text1.Text=1 Then
Cancel=True
MsgBox "必须输入树枝的数量！而且要大于1",vbOKOnly,"Error"
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub ''代码结束