Timer1.Start()启动计时器，但需要声明计时器的计时频率。

Timer1.Interval = 1000

将使计时器每1000毫秒或1秒计时一次。您希望为计时器执行的操作放在Timer_Tick事件处理程序中。
为了允许标签递增，你可以使用一个全局变量：

Public Class MainBox

Dim counter As Int

Private Sub Form_Load(sender As System.Object, e As System.EventArgs)
    Timer1.Interval = 1000
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) HandlesTimer1.Tick<action>
    counter = counter + 1
    label1.Text = counter
End Sub

您需要定义Tick事件处理程序，它将在时间滴答时执行操作（它将在INTERVAL属性中定义的每个间隔（以毫秒为单位）滴答）：

启动计时器：

Timer1.Start()

定义INTERVAL属性（下例为2秒）：

Timer1.Interval = 2000

定义事件处理函数

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    <action>
    IF <condition> THEN Timer1.Stop()
End Sub

如果需要，可以使用Timer1.Stop()停止计时器

不要忘记启用定时器并设置间隔（1000应该足够好，但您可以保留默认值100）。在Tick处理程序中放入代码以刷新标签。启动计时器时，请记住开始时间（Date.Now）。然后，在每一个滴答声：

lbl.Text = Date.Now.Subtract(startDate).TotalSeconds.ToString("N0")