#Region " Imports "
Imports System.Threading
#End Region


#Region " Module Module1 "

Module Module1

    Dim CommandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Application.CommandLineArgs

#Region " Sub Main "
    Sub Main()
        Try

            Dim tmpWorker1 As New Thread(AddressOf Worker_Thread_1)
            Dim tmpWorker2 As New Thread(AddressOf Worker_Thread_2)
            tmpWorker1.Name = "Worker Thread # 1"
            tmpWorker2.Name = "Worker Thread # 2"
            tmpWorker1.Priority = ThreadPriority.Normal
            tmpWorker2.Priority = ThreadPriority.Normal
            'tmpWorker1.IsBackground = True
            'tmpWorker2.IsBackground = True
            tmpWorker1.Start()
            tmpWorker2.Start()

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try


    End Sub
#End Region

#Region " Private Sub Worker_Thread_1 "
    Private Sub Worker_Thread_1()
        Try
            Dim goal As Long
            Dim x As Long
            Dim y As Long
            Dim i As Long
            goal = 2181818
            Do While True
                Dim BeginTime As DateTime = Now
                For i = 0 To goal
                    x = 0.000001
                    y = Math.Sin(x)
                    y = y + 0.00001
                Next
                y = y + 0.01
                Dim Span As TimeSpan = DateTime.Now.Subtract(BeginTime)
                Console.WriteLine("CPUWorkOut(Worker1) processed three million sines in " & Span.Milliseconds & " milliseconds!")
            Loop
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
#End Region

#Region " Private Sub Worker_Thread_2 "
    Private Sub Worker_Thread_2()
        Try
            Dim goal As Long
            Dim x As Long
            Dim y As Long
            Dim i As Long
            goal = 2181818
            Do While True
                Dim BeginTime As DateTime = Now
                For i = 0 To goal
                    x = 0.000001
                    y = Math.Sin(x)
                    y = y + 0.00001
                Next
                y = y + 0.01
                Dim Span As TimeSpan = DateTime.Now.Subtract(BeginTime)
                Console.WriteLine("CPUWorkOut(Worker2) processed three million sines in " & Span.Milliseconds & " milliseconds!")
            Loop
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
#End Region

End Module

#End Region