13518219792
时间控件是让你来设定系统等计时用的，比如：
创新互联专注于企业成都全网营销推广、网站重做改版、壶关网站定制设计、自适应品牌网站建设、H5场景定制、商城网站定制开发、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为壶关等各大城市提供网站开发制作服务。
你的时间控件
名为：timer1
你想让一个对话框每5秒钟调出来一次
你可以这样写：先设定时间控件的
interval
属性
为5000（每1000是一秒）
代码为：
Private
Sub
Timer1_Timer()
MsgBox
"请速度点确定！",
vbOKOnly,
"jklovesx提示您！"
End
Sub
另外，建议你多看基本方面的书，控件方面的很适合你，好吧，这样，TKS！
有不明白的，我们可以一起再交流
这种功能用不到TIMER，TIMER控件用在这种地方也不适合。(假如你所统计的时间很短，在几分中内话，可以使用，假如你统计的时间很长:几小时、几天几夜，建议改用以下方式):
在你需要开始计时的地方加入一个记录当前时间，在你想结束的地方也得到一个当前时间。然后将两个时间相减。
希望以上思路可以帮到你。
使用多线程。
如果操作时候长了，就把查询操作放在多线程里去执行，不要在窗体的主线程里执行。
因为定时器是通过Windows消息来实现的，而你的数据库操作阻塞了窗口线程，所以，窗口无法处理Windows消息。
动画的帧播放也是如此。
/----------------------
那就创建一条线程，然后在线程里执行数据库操作啊！
参见 System.Threading.Thread 对象。
我使用Visual Basic 2008 编写
1、新建2个窗体Form1和Form2
2、Form1窗体新建一个Button按扭和一个Timer1控件
3、打开Form1编写如下代码
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Form2.Show()
Me.Hide() '隐藏本窗体
Timer1.Enabled = False '使其只执行1次
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True '能使用 其实这个在属性窗口中更容易设置
Timer1.Interval = 2000 '毫秒 即2秒
End Sub
End Class
VB有现成的函数：
DateDiff(格式,日期1,日期2)
如今天到2010-5-1 8:00:00的时间差，代码：
DateDiff("yyyy",Now,#2010-5-1 8:00:00#) '还有几(整)年
DateDiff("q",Now,#2010-5-1 8:00:00#) '还有几(整)季度
DateDiff("m",Now,#2010-5-1 8:00:00#) '还有几(整)月
DateDiff("d",Now,#2010-5-1 8:00:00#) '还有几(整)天
DateDiff("ww",Now,#2010-5-1 8:00:00#) '还有几(整)周
DateDiff("h",Now,#2010-5-1 8:00:00#) '还有几(整)小时
DateDiff("n",Now,#2010-5-1 8:00:00#) '还有几(整)分钟
DateDiff("s",Now,#2010-5-1 8:00:00#) '还有几(整)秒
