Dim tik As Long
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        tik = tik + 1
        If tik Mod 1000 = 0 Then
            Label1.Text = Str(tik / 1000)
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        tik = 0
        Label1.Text = 0
        Timer1.Interval = 1
        Timer1.Enabled = True
    End Sub

Dim tik As Long
    Private myTimer As System.Threading.Timer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        tik = 0
        Label1.Text = 0
        Dim myCallback As New System.Threading.TimerCallback(AddressOf Task1)
        myTimer = New System.Threading.Timer(myCallback, Nothing, 0, 10)

    End Sub
    Private Sub Task1(ByVal state As Object)
        tik = tik + 1
        Label1.Invoke(Sub() Label1.Text = tik)
    End Sub