Дополнительный поток тормозит главный

Public Class Form1
    ' Переменные для организации дополнительного потока, в котором будет выполнена его основная процедура LongProc1()
    Private Delegate Sub _dlgProc1()
    Private CallBackProc1 As New _dlgProc1(AddressOf RunTimeProc1)
    ' Эта процедура будет выполнена не в основном, а в отдельном потоке 
    Sub LongProc1()
        Try
            ' Организуем бесконечный цикл
            Do While (1)
                ' Сдесь хотелось бы вставить задержку в миллисекундах
                Me.Invoke(CallBackProc1) ' В конечном итоге здесь будет "крутиться" RunTimeProc1()
            Loop
        Catch ex As Exception
            Exit Sub
        End Try
    End Sub
    ' Эта процедура будет выполнятся не в основном, а в отдельном потоке
    Sub RunTimeProc1()
        Static n As Integer
        n += 1
        Label1.Text = n.ToString
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim th As New MethodInvoker(AddressOf LongProc1)
        th.BeginInvoke(Nothing, Nothing)
    End Sub
    ' Для сравнения то же самое организуем в главном потоке в таймере
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static n As Integer
        n += 1
        Label2.Text = n.ToString
    End Sub
End Class