求助！！！当有子程序运行时，timer的间隔不对

我的代码如下：
private sub form_load()
Timer1.interval = 400
call InstallODBC
end sub
public sub InstallODBC()
doevents
Form.lblDisplay.caption = "Installing ODBC"
...
end sub
private sub Timer1_Timer()
me.timer1.enable = false
if me.lblDisplay.visible = true then
me.lblDisplay.visible = false
else
me.lblDisplay.visible = true
end if
me.timer1.enable = true
end sub
执行的时候，得一秒多才改变一次，不知道怎么修改啊。我想让label改变的频繁一些，谢谢！