VB时钟控件

新建vb工程，加入timer，label，command控件各一个。
然后复制以下代码
Private Sub Form_Load()

Dim IntInterval As Integer
'改变IntInterval的值可以改变循环快慢
IntInterval = 100
Timer1.Interval = IntInterval

NTimer = 0
'为了显示更清楚
Label1.FontSize = 60

End Sub

Private Sub Timer1_Timer()
'这里面得代码相当于一个循环，循环结束条件是
'Timer1.Enabled = False或者Timer1.Interval = 0
'循环的执行时间间隔就是Interval的值，毫秒为单位。
NTimer = NTimer + 1
Label1.Caption = NTimer
End Sub

运行，你就明白了。我注视写得很清楚的。祝你成功！

That‘s enough!

知道interval，enable属性就够了
设置好了双击该控件
里面写你要定时控制的代码

interval里边设置时钟时间（单位为毫秒），到这个时间，则执行时钟里的代码。
enable是指这个时钟控件是否被激活，激活则计时，不激活则不计时，不执行

如：
新建一个exe工程，添加一个time控件，将其interval里边设置1000，在代码页加入以下代码：

Private Sub Timer1_Timer()
Form1.Print Time
End Sub

运行，你会看到form窗体是每格一秒显示一个时间

Interval 是这个计时器的执行周期【个人理解】（每隔多少毫秒就执行一次该计时器的Timer事件）

Enable 用来表示计时器是否生效（如果为False的话，就是不启用这个计时器，True则相反）

例子：
Private Sub Form_Load()

Timer1.InterVal = 2000 '设置计时器的执行周期为2000ms（即2s）

Timer1.Enable=True '设该计时器状态为有效状态，如果设为False则不管你Interval设多少都不会执行Timer1_Timer中的代码

End Sub

Private Sub Timer1_Timer()

End '关闭当前程序

End Sub

'运行后你会发现程序运行了约2s后就自动退出了。
'Timer控件默认的Enable值为True，如果不想Timer控件在启动时生效而想通过代码启动计时器的话，可以在设计时手动将Timer控件的Enable属性设为False或在Form_Load之类的事件加上Timer1.Enable=False。