Console怎么用（线程中的问题）

Imports System
Imports System.Threading
Public Class dosomethingthread
    Shared Sub workermethod()
        Dim i As Integer
        For i = 1 To 1000
            Console.WriteLine("Eorker Thread:" & i.ToString())
        Next
    End Sub

    Shared Sub main()
        Dim ts As New ThreadStart(AddressOf workermethod)
        Dim t As New Thread(ts)
        t.Start()

        Dim i As Integer
        For i = 1 To 1000
            Console.WriteLine("Primary Thread:" & i.ToString())
        Next
        Console.ReadLine()
    End Sub
 End Class
按书上写的代码，运行后界面一点反应都没
Console不太懂，MSDN看的迷迷糊糊的，希望有高手介绍下
Console.WriteLine和Console.ReadLine()具体怎么用？不是在界面上显示数值吗？