Таймер с интервалом 1 миллисекунда

Imports System.Timers
Public Class Form1
    Public Delegate Sub tim_del(a As Object)
 
    Dim TimeMachine As New Timers.Timer(1) 'задаем таймер с интервалом 1 миллисекунда
 
    '==Загружаем форму, активируем таймер==
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler TimeMachine.Elapsed, AddressOf OnTimedEvent
        TimeMachine.Enabled = True
    End Sub
 
    '==Нажимаем кнопку запуска таймера==
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        TimeMachine.Start()
    End Sub
 
    '==Обрабатываем событие (тикание) таймера==
    Private Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)
        Call del_tim(e.SignalTime) 'в лэйбл на форме должно передаваться время таймера (быстро), НО ТУТ ОШИБКА!!!
    End Sub
 
    Private Sub del_tim(a As Object)
        If Label1.InvokeRequired Then
            Me.Invoke(New tim_del(AddressOf del_tim), a)
        Else
            Label1.Text = a.ToString
        End If
    End Sub
End Class