大侠：帮我看看程序啊

我的CPU是单核3.0G的：

运行上面的代码，CPU使用率上升到 50% 以上

运行下面的代码，CPU使用率在0%-2%之间

在窗体中添加个 Timer 控件，复制下面代码：

Private Sub Command1_Click()
 If Timer1.Enabled = True Then
 Timer1.Enabled = False
 Command1.Caption = "开始"
 Else
 Timer1.Enabled = True
 Command1.Caption = "结束"
 End If
End Sub


Private Sub Timer1_Timer()
Static i As Integer
 i = i + 1
 If i <= 7 Then
 Me("Picture" & i).Visible = True
 If i > 1 Then
 Me("Picture" & i - 1).Visible = False '将上一个显示的控件隐藏
 Else
 Me("Picture7").Visible = False
 End If
 Else
 i = 0
 End If
End Sub

我说大哥，你的代码不行啊，
我要的是从图片1每隔0.1秒连续显示到图片7的动画效果，
而你的程序只是在Command1上显示开始和结束，图片并不显示啊�

晕了，没有设定时间，当然无法执行

'你先把所有的Picture设置为隐藏的
Private Sub Form_Load()
 Timer1.Interval = 100'设定timer间隔时间为100ms
End Sub

恩，这位大虾很不错的，TIMER用的不错，可以显示了。但和我说的不太一样。

我的思路是：假如有很多COMMAND，我每点一个COMMAND，都先演示一遍那个TIMER动画事件，然后再继续其他语句，用COMMAND控制动画开始，动画自己演示一遍后消失，而不是用COMMAN再控制它结束�

或者就1个COMMAND，是在COMMAND的某些语句中调用动画事件，然后再进行其他语句，而不是用COMMANG来控制动画结束，是动画演示完自己结束的。
咋整啊，帮帮�

很简单，你在Tiemr事件中做结束判断

Private Sub Timer1_Timer() 
Static i As Integer 
 i = i + 1 
 If i <= 7 Then 
 Me("Picture" & i).Visible = True 
 If i > 1 Then 
 Me("Picture" & i - 1).Visible = False '将上一个显示的控件隐藏 
 Else 
 Me("Picture7").Visible = False 
 End If 
 Else '如果循环结束，则执行以下代码

 i = 0 '重新开始
 Timer1.Enabled = False '结束循环

 End If 
End Sub 

若你想循环N次

Private Sub Timer1_Timer() 
static mCount as integer
Static i As Integer 

 i = i + 1 
 If i <= 7 Then 
 Me("Picture" & i).Visible = True 
 If i > 1 Then 
 Me("Picture" & i - 1).Visible = False '将上一个显示的控件隐藏 
 Else 
 Me("Picture7").Visible = False 
 End If 
 Else '如果循环结束，则执行以下代码

 i = 0 '重新开始
 mCount=mCount+1
 if mCount>=1 then'循环一次结束，可以使任意Integer值
 mcount =0
 Timer1.Enabled = False '结束循环
 end if

 End If 
End Sub

'竟然可以这样使用控件，感谢[sz漫步者]，使用mod做的
'Command1,Picture1--picture7,Timer1

Dim T As Long

Private Sub Command1_Click()
Timer1.Interval = 100
T = -1

Timer1.Enabled = True
End Sub

Private Sub Form_Load()
For i = 1 To 7
 Me("Picture" & i).Visible = False '感谢[sz漫步者]教会我这样使用控件
Next
Timer1.Enabled = False
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
T = T + 1

j = (T + 6) Mod 7 + 1
Me("Picture" & j).Visible = False '将上一个显示的控件隐藏

If T >= 14 Then '>=控件数*循环次数时结束
 Timer1.Enabled = False
 Exit Sub
End If

i = T Mod 7 + 1
Me("Picture" & i).Visible = True '显示控件
End Sub

又学到了一招，“Me("Picture" & j).”，多谢漫步者跟jwjsb�

感谢，高手云集，这招绝对不错啊，Me("Picture" & j)，真好！

对了，再问下：在command中触发这个事件，如果想触发很多次，8楼的是不每次都要写这些代码啊？

如果像漫步者那么做，在command中要怎么写代码？简单的call好像不行啊，我实验了，只能显示第1个画�

'不是阿。我在8F的代码跟漫步者的基本相同
'将下面这句：
If T >= 14 Then '>=控件数*循环次数时结束 
'改为下面这样可能更好理解：
N=2 '循环次数
If t>=7*n then

若用在7楼的代码，Command 事件代码

Private Sub Command1_Click() 
 If Timer1.Enabled = True Then 
 Timer1.Enabled = False 
 Command1.Caption = "开始" 
 Else 
 Timer1.Enabled = True 
 Command1.Caption = "结束" 
 End If 
End Sub

13楼，万分感谢，但不是这样子的。我的意思是：用COMMAND控制开始，但不控制结束。

Private Sub Command1_Click() 
 
（这里怎么写，出现TIMER事件？然后继续下面的程序。）

Tf X%+Y%>100 THEN label1.caption = "你输入的数字大于100"
Picture1.Visible = true
End Sub

Timer1.Enabled = True '启动Timer，就可以开始循环了