２つのタイマー処理で、画面が応答なしになる

    Private timer As System.Threading.Timer
    Private t As Double = 0

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim timerDelegate As System.Threading.TimerCallback _
         = New System.Threading.TimerCallback(AddressOf worker)
        timer = New System.Threading.Timer(timerDelegate, Nothing, 0, 500)
    End Sub

    Delegate Sub DelegateFuc()

    Private Sub worker(ByVal o As Object)
        Invoke(New DelegateFuc(AddressOf UpdateText))
    End Sub

    Private Sub UpdateText()
        Dim r As New Random

        t = r.NextDouble
        TextBox1.Text = t.ToString("#0.00")
        Debug.Print(String.Format("{0} (2)...", Now.ToString("yyyy/MM/dd HH:mm:ss.fff")))
    End Sub

   Private timer As System.Threading.Timer

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim timerDelegate As System.Threading.TimerCallback _
         = New System.Threading.TimerCallback(AddressOf worker)
        timer = New System.Threading.Timer(timerDelegate, Nothing, 0, 1000)
    End Sub

    Delegate Sub DelegateFuc()

    Private Sub worker(ByVal o As Object)
        Invoke(New DelegateFuc(AddressOf DisplayText))
    End Sub

    Private Sub DisplayText()
        Dim r As New Random
        Dim t As Double

        For ix As Integer = 0 To 10000 - 1
            t += r.NextDouble
        Next

        TextBox1.Text = (t / 10000).ToString("#0.00")
    End Sub