怎么才能实现我所说的情况？？？？

Question

可以
load 事件或者其他什么触发的事件
timer1.interval=500
Private Sub Timer_Timer(Index As Integer)
select case index
case 0
timer(0).enable=true
timer(1).enable=false
timer(0).interval=100
msgbox="111"
case 1
timer(1).enable=true
timer(0).enable=falsetimer(1).interval=200
msgbox="222"
...
...
end select
end sub

Answer 1

SORRY,Private Sub Timer_Timer(Index As Integer)
if timer(0).enable=true then
   timer(0).interval=100
   msgbox="111"
elseif timer(1).enable=true then
    timer(1).interval=200
    msgbox="222"
end if

Answer 2

去查一下MSDN里面的callbyname，虽然里面的例子很弱智，但是我想这东西很适合你的要求的。
我在网吧上网，不方便。