189 8069 5689
不对。步骤如下：
创新互联建站坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都做网站、成都网站建设、成都外贸网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的修文网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
添加一个label标签名字label1 用来显示时间
再添加一个timer控件 名字timer1 interval属性=1000 用来计时
窗体添加代码
Dim t As Date '用来记录时间
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登录时间:" t.TimeOfDay.ToString
End Sub
控制台调用Timer和窗体是类似的。首先在项目引用里面加入System.Windows.Forms程序集，然后在代码顶部引入命名空间：
Imports System.Windows.Forms
在控制台的Module中声明一个计时器：
Private WithEvents Timer1 As New Timer()
把计时器的Tick事件静态绑定到处理函数中：
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'一些代码
End Sub
在需要开始计时的地方，修改其Interval、Enabled属性：
Timer1.Interval = 1000
Timer1.Enabled = True
这种功能用不到TIMER，TIMER控件用在这种地方也不适合。(假如你所统计的时间很短，在几分中内话，可以使用，假如你统计的时间很长:几小时、几天几夜，建议改用以下方式):
在你需要开始计时的地方加入一个记录当前时间，在你想结束的地方也得到一个当前时间。然后将两个时间相减。
希望以上思路可以帮到你。
'添加两个命令按钮和一个计时器即可
private
n
as
long
private
sub
command1_click()
timer1.interval
=
10
timer1.enabled
=
true
end
sub
private
sub
command2_click()
timer1.enabled
=
false
open
"c:\1.txt"
for
output
as
#1
#1,
format(n
/
100,
"00.00")
close
#1
"时间保存在c:\1.txt"
end
sub
private
sub
form_load()
end
sub
private
sub
timer1_timer()
cls
n
=
n
+
1
"已用时间："
format(n
/
100,
"00.00")
end
sub