VBを使って簡単なタイマーを作成する方法は何ですか？

VBで書かれた簡単なタイマーの例を以下に示します。

Imports System.Threading

Public Class Form1
    Dim WithEvents timer As New System.Windows.Forms.Timer()
    Dim counter As Integer = 0

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        timer.Interval = 1000 ' 设置计时器间隔为1秒
        timer.Enabled = False ' 初始化时不启动计时器
    End Sub

    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        counter = 0 ' 重置计时器
        timer.Start() ' 启动计时器
    End Sub

    Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
        timer.Stop() ' 停止计时器
    End Sub

    Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick
        counter += 1 ' 计时器自增1
        lblCounter.Text = counter.ToString() ' 更新显示的计数器数值
    End Sub
End Class

上記のコードは、シンプルなウィンドウアプリケーションを作成し、開始ボタン（btnStart）、停止ボタン（btnStop）、およびカウンターの値を表示するためのラベル（lblCounter）を含んでいます。ユーザーが開始ボタンをクリックすると、タイマーが開始され、1秒ごとにカウンターの値が更新され、ラベルに表示されます。ユーザーが停止ボタンをクリックすると、タイマーが停止します。